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SYM-PHYSIS is a quarterly rublication of the SYM-1 Users’ Groury F. O,. 
Box 315» Chicory CA 95927. SYM-PHYSIS and the SYM-1 Users’ Grour (SUG) 
are in no way associated with Sunertek Systems Corroration (SSC)» and 
SSC has no responsibility for the contents of SYM-FHYSIS, SYM is 2 
registered trademark of SSC, SYM-PHYSIS, from the Greeks means the 
state of sdrowins together, to make grow, to bring forth. 


We welcome for rFublication 211 articles dealing with any asrect of the 
SYM-1» and its very close relatives. Authors retain 311 commercial 
coryrishts. Portions of SYM-PHYSIS may be rerroduced by clubs and edu- 
cational institutions, end adartations of Programs for other computers 
may be freely Published, with full credit given and complimentary cories 
Provided to SYM-PHYSIS and the original author(s). Please include a 
self-addressed stamped envelore with all corresrondence, 


Editor/Fublisher? H. Re “*Lux® Luxenbers 
Business/Circulation? Jean Luxenbergs 
Associate Editors? Thomas Gettyss Jack Brown 

Jack Gieryic 


SUBSCRIPTION RATES (1981): 

USA/Canada - $10,00 for @ volume of four issues. Elsewhere - $13.50. 
Make checks rayable in US dollars to "SYM-1 Users’ Grour',s F. 0. Box 
315,» Chicory CA 95927» Telerhone (916) 895-8751. 


Issue #0, the Introductory Issue (1979)» and Issues 1 throush 6 (1980), 
ere availablery as a2 rackader for $12.00» US/Canaday and $16.00% First 
Class/Airmail»s elsewhere. 


EDITORIAL POLICY 

SYM-PHYSIS is mot intended to be your tyrical periodicals to which new 
subscriptions besin with the current issue. Insteadrs mew subscribers 
start out with Issue 0 and Issues 1 through 6% andy horefullyy do not 
remain besinners longa, Thus» there will be no "Besinner’s Corner® in 
each issue. Rathers we hore to increase the level of sophistication of 
our materialy as we and you grow in exrerience with the SYM-1» and 
continue to make ever increasing demands on its rerformance, 


We will include in each issue several rrogram listings for both BASIC 
and RAE users. We will also attempt to keer readers current om what is 
available for the SYM-1, in the way of both hardware and softwarer from 
every source of which we knows and publish any tirs or hints for 
improving the SYM’s performance which we or our readers discover. We 
also hore to rresent concerts, ideas thoushts, software and hardware 
design rrinciplesy Philosophical whimsiess etc., at least some of which 
should be usefuly to at least some of our readers» at least some of the 
time. 


We will try for four mailings rer years with an average of 36 single 
sraced manuscrirt rages rer mailing. Outside rressures may rossibly 
force an occasional "“double-issue" (as harrened with 5/6 last year!),. 
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snsertion into a binder- 


HELF US TO HELF YOU 

We gre now sufficiently organized to keer ur with the unexrectedly large 
number of letters and phone calls which arrive seven days a weeks and 
can even get causht up with the mail backlogs after @ week’s absence. We 
are even making a slight dent om the enormous backlogs which eccumulated 
before we fisured out how to handle it. Flease bear in mindy toor that 
we do have a full-time teaching rositiony and that rublishins SYM-FHYSIS 
is only @ leisure-time (!) activity. 


There isy howeverrs no way in which we can get back to last December’s 
mails so if we have not answered an earlier letter of vyoursr Flease 
eccert our arolodies, and try agains The followings sussestions will 
helr us to help you more efficiently: 


Please use serarate sheets of rarer (each with your mame and address on 
it!) for each of the followings? 


1. Reauests for HELP. These will set first rriority, 

2, Reauests for general informations mo emersency, 

3. Purchase reauests. These tooy get rriority,. 

4. Letters of praise, condemnations articles» ideasry etc. 
These we will read at leisure, for rleasure, 


It will helr greatly if each item is so clearly obvious as to its rrorer 
category thet even 2a “tyrical*® clerk, who could mot care less ebout 
learning to do a Job welly could sort it out into the prorer rile. This 
is one clerical task for which we still need human hele. Our SYMs won’t 
helr us here! 


While there is no charge for the "research" involved in setting answers 
to your auestions, because we enJoy the learnings: we do ray someone to 
make Xerox copies, and stuff and address the enveloress and rostade 
costs are rising. You can helr us cover these costs by slirring a 
dollar or so into your envelore occasionally. Oversees currency is OK» 
toor since Jean loves to travely and will find @ way to srend it. 


OUR SUFFORT FOLICY 


We will fully surrort 211 of our software Froducts, motifying all 
Purchasers of known buss and their fixes. When ursraded versions are 
available, rurchasers of earlier versions will be siven discounts on the 
new versions. 


Most software presently available for distribution surrorts only 


cassette I/0, and is available on cassette. Owners of FODS sustems may 
order disk versions. The disk versions are Load and Gor called by RUN 
“~name + Disk drive turnoff and any rages O and 1 initialization are 


built into the rrograms. When we have the T[lisk I/0 Fratches readyy 
motices will be sent to 211 owners of record. The ratchesy including 
source code in RAE/FODS format, will be made available for a nominal sum 
to cover the mediary shirrings and labor costs involved, 


We’re even more anxious than you are to get these ratches ready for use! 
We have modifiedy or are in the Frrocess of modifying, all xisting 
rackasdes to surrort FOIS [Tlisk I/0. For example RAE-1: SWP-1» and BAS~-1 
are fully intedrated with FODS., BAS-1 now surrorts »«CHAINy .APFENDs: and 
-ED (Enter Data) and .LI (Load Data) commands. These ratches were 
written by Tom Gettys. We are currently working om the FORTH and tiny-c 
Disk I/0 patches. 


It is 23 real Fleasure to watch RAE-1 assemble and list a 48+K source 
code file with .CT modified to mean Continue on Disks or to watch SWP-1 
Frint out a 90 rage rerort from disk files! 
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MORE ON SOFTWARE *THEFT* 
We received the following post card recently, and rerrint itr in its 
entirety, omitting only the sidnature? 


Tear Lux: 


As 3 result of your statements on rade 4-277 I am mot renewing 
my membershirp in SYM-PHYSIS. Theft is thefts regardless of 
whether the thief deems it ‘*fair* or it “occurs srontaneouslyr" 
and I cannot condone it with continued membershir., Nor will I 
Fay rrices for software inflated by the anticiration of 
"sharing." Would you be ‘encourased* to teach if only 1 out of 5 
students raid the tuition that rays your salary? 


We are truly sorry to lose the writer as a member of the SYM-1 Users’ 
Grouwrs bhecause we sense from the tone of his message that he has given 
the matter much thoushty and there is much that he could contribute to 
the rest of us in the way of ideasr and softwarer etc. We will send 
him a cory of this issuers so that he will know our ideas om the matter, 
(We have since telerhoned the writers and neither of us convinced the 
otherr but we are still friendly!) 


We have always considered ourselves to be more of 2 “scientist* than an 
“engdineer" and Jjokingly described the former as anxious to accumulate 2 
string of Published parers (for the gdlory!), and the latter to eacauire 
@ string of patents (for the fiscal return). (We hore we haven’t made 
any more enemies with this last remark!). As 2 scientist, we have 
freauently exchanded manuscrirts, roush draftss notesr etcer with 
othersy and often sent Xeroxed articles to others marked uP with our 
comments and auestionss asking them for their ideas and suggestions on 
something we have seen in the literature, 


We have viewed this in the spirit of "research* and information 
exchangder and considered it ‘fair use" of Published research materials. 
I have sent copies of my rublished articles to colleasues»s and have 
allowed them to imclude cories 2s arrendices to rerorts they have 
submitted to their clients. The clients would never have seen the 
original articles, nor would they ever consiger subscribing to the 
Journals which Published thems the rublishers lost mo income as 2 
result of these “sift cories". 


I did obJect oncer and very strongly, toor when a “colleasue" had one 
of my Fublished (and coryrighted by the Frublisher) articles retyreds 
substituted his name and consulting firm’s name for mine and charged 
one of his clients for the rerort he "rrerared® fof them! 


We consider the unauthorized marketing of someone else’s rFrroduct as 
one’s own as the real violation of the spirit and letter of the 
coryrisht and patent laws, not the sharing by close associates. For 
examples 3a small droup of chess rlayers might rool their funds in order 
to acauire all available chess rrograms for their mutual use. On the 
other handy when a large group acts as a rurchasing ‘collective’ for 
the rurrose of, in effects *manufacturins" and "distributing" 
reproductions of 3 rroducts be it software or hardware (circuit boards 
are also rerroducible),s it becomes @ commercial activity, and should be 
considered as suchy even if it is @ not-for-profit organization. 


What we think we meant in the referenced statement on rade 4-277 was to 
Pick some arbitrary numbers in this case fiver as being a "fair" urrer 
limit for a resource-roolins commune! Perhars the number was too hish? 
Too low? Or what? 
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A RELL FOR THE KTM-2 AND/OR KTM-2/80 

You may have noticed in the KTM reference manual that rin 22 om both the 
Main and Aux rorts of the KTM-2 (and -2/80) is labeled ‘BELL’. When we 
first sot our KTM-2y we tried handing a small 8 ohm sreaker between Pin 
22 and droundy with unsatisfactory results. The sreaker made noise even 
when it was not enabledy so we dave ur that idea immediately. One of 
our associates, Lew Dlavisy sussested we try instead 23 Friezo-electric 
heerer- Lew also suggested that we we would get @ better tone if we 
disabled the on-board oscillator. We then connected 3 Radio Shack Piezo 
Buzzer (273-060) between rin 22 (rositive or red lead) and one of the 
ground fins. The combination tone of the beerer (4.8 kHz) and the lower 
frequency on-board oscillator was mot Pleasant, so we cut @ trace and 
added a jumper to disconnect the oscillator, 


RAE now signals us audibly on error messasesr and also lets us know wher 
we are near the end of an input line (72 characters). We can mow PRINT 
CHR$(7) from BASIC, instead of LET X = USR(&"8972"70) when we want 2 
beer. Our only complaint is that the Bell Enable signal is too long» 
nearly two seconds. One fix for this is to install 2 "flasher LED" in 
series with the beerers this will rroduce several short beers instead of 
the one long beer. The beerer volume may be reduced in intensity with 
either a series resistor or a riece of masking tare over the openings 
To disable the oscillator cut the long trace Just above RK 23» and Jumrer 
the left end of this trace to the right end of the longs trace Just below 


U 38. This cut and Jjumrer will discormect rin 5 of U 38 from the on- 
board oscillator and rermanently ground ite 


Radio Shack also has available @ much more compacts less expensive 
Piezo Elements without the built-in oscillator (273-064). We tried this 
device alsory tieins its red and blue leads together, derending on the 
built-in oscillator to senerate the tone, The result was 2 very 
pleasanty but very auiets low ritched buzz. We felt the volume was a 
Little too low to alert us from across the roomy but Just right in @ 
noise-free environment (i+.e.»s mo hi-fiy TV» or conversation soins). 


Another alternative would be to use the same tyre of beerer as is on the 
SYM-1 itselfy but this is mot as readily available as the Radio Shack. 
devices and is very likely less cost effective and more troublesome to 
mount on the KTM because of the exrosed metal contacts. 


While we are looking at the KTMy let us remind you about Fin 23» labeled 
‘lIC’, This is enabled (low) by CHR$(19) and disabled by CHR$(20)s these 
are Control-S (DC3)* and Control-T (UC4), resrectivels,. ‘OC! ‘can ibe 
useds with a suitable relay, to control the AC rower to your Printers 
for example (NOTE! ‘IC’ means ‘Llevice Control’, mot Direct Current!). 


CONTROLLING I/0 FROM BASIC 


Herery slightly modified, are Andre Hoolandts’ subroutines for switching 
between a 110 baud TTY om the 20 mA loor and 3 4800 baud CRT on the 
RS 232 interface: 


1000 X=USRK(-29818,0)POKE 42580,208:FOKE 425775 1!RETURN 

2000 X=USR(-29818+0) !POKE 425807224:FPOKE 425777213:RETURN 
The USR function is a JSR ACCESS» and 42580 and 42577 are the locations 
of TOUTFL ($A654) and SDBYT ($A651), resrectivels, The mumbers roked 
into TOUTFL, 208 and 224% are the decimal eauivalents of $00 and $E0O» 
respectively. It might seem that these should be $60 and $90, but not 
necessarily so, Note that with the values $0 and $£O, CRT IN is 
enabled with TTY IN/OUT» and TTY IN is enabled with CRT IN/OUT. This 
Permits INSTAT and TSTAT to check for the BREAK key down on either {only 
possible with MON 1.1» MON 1.0 only checked only the device on PB7 of 
the 6532» normally the CRT). Any keys on the unselected device during 
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an INCHR or INTCHR willy of courser rFroduce gibberish because of the 
incorrect baud rate. 


The $DO for the CRT choice is much better than the SYM-1 default value 
of $BOy since this latter activates TTY OUT» not TTY INr and the TTY 
will chatter on unintellisgibly at the wrongs baud rate unless it is 
turned off. Of course 2 disconnected TTY ‘“sends" 2 Frermanent break 
signal» so you may prefer the $70 in many cases, 


The 1 and the 213 are the decimal eauivalents of $01 and $05, for rates 
of 4800 and 110 baud, resrectively. These may be changed to fit vour 
own rerirheral rates. 


ANOTHER CASSETTE PROBLEM AND FIX 

Most of the cassette read rroblems on the SYM-1 seem to be "fixed" by 
replacing C16 with a smaller caracitor (0.01 uF), alisnmins the heads» 
Cleaning the pinch roller, etc. We recently met a SYM-1 whose outrut 
cassettes were unreadable on any other SYM/Recorder combination, We 
tried three or four SYMs and recorders to no avail. We finally decided 
that the outrut level was marginally lows and changed R88 from 470 ohms 
to 1.0 kohmy to arrroximately double the recording signal level. This 
worked out fine. 


THE RAE USer FUNCTION 
The RAE-1 USer function allows the rassing of one rarameter through the 
A Resister if you so desire. Enter the followings rrogram at $0003 to 
check it out? 

0003- 20 AO BA JSR TOUT 

0006- 4C AC BO JMP RAE.WARM 


Call this with USer (any character), and that character will be rrinted. 
The value of the parameter passed (remember it is the ASCII eauivalent 
of the cheracter) can be used to select one of 2 mumber of ortional 
subroutines. 


WIGGLE YOUR CHIFS AND FLEX YOUR BOARDS 

While it’s 2 good idea from many stand-roints to socket 211 of your 
chirsy rather than solder them ins roor socket contacts could sive rise 
to the same sorts of problems as cold solder joints. Several readers 
(as well as wer ourselves) have traced their memory and other rroblems 
back to these two sources. We sudsest that you wigsle your chirs in 
their sockets to increase contact likelihood, and flex the circuit board 
slightly to help locate bad solder joints. The flexing may mot show you 
where they arey but it might "fix" them semi-rermanently. 


MORE ON DISK SYSTEMS AND COMMUNICATIONS 

We have been studying Arrle II DOS (3.2 and 3.3) to see how it works. 
Arrle DOS is very eleganti we like best its ability to use longs file 
names. The HDE FODS is also elesgants we rrefer its command structure 
and syntex. DOS and FODS are both very versatile. We can mot rate 
either as clearly surerior to the other (to say mothing about CP/M for 
the 80-tyre machines and FLEX for one 6800 systems). To do so would be 
like comparing arrles and —~___-__ 


Qne feature that Arrle DOS has is the ability to OPEN» WRITE, READs and 
CLOSE text files to the disk» from various lansuagesy e.g.» from either 
Integer or Microsoft KASIC. For the uninitiated, this means that when 
LIST is called from BASICys or PRint from RAEys the outrut may be 
buffered to 2 “*named" file on the disks instead of: or in addition toy» 
arprearing on the terminal or rrinter,. The file is»y of courser in 
ASCIIy with each <“cr> followed with a <1f>. Next, naturally, when 
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BASIC» or RAEy is awaiting ineut of a filey it must be made rossible to 
"OPEN" the pProrer named file and “READI" that file instead of exrecting 
ineut from the keyboard). Thus RAE can be used to Frrerare and edit 
Programs for RASICy for example. 


We started to follow that rath over 2 year asor before we had a disk 
syustemy with the MERGE rrogramy which dumped the ASCII listings from 
BASIC into hish memors for later recall (from BASIC). Our next ster 
was to allow RAE to access and redumrp (edited). Why did we not follow 
throush on that? Because we felt that each higher level lansuase 
should be "“stand-alone"s why should a second languese be reauired to 
make up for the inadeauacies of a first. Jack Krowny rointed out to us 
about that timer that SYM-BASIC could be its own editor (more om that 
elsewhere). 


There is howevers a very valid reason for being able to dump ASCII to 
disk or memorys and we hore to set this going on our system during the 
next auarter. ASCII is the American Standard Code for Information 
Interchanser, between comrutersy terminals and data hanks,y ete, Buf~ 
fering datary in ASCII» in memory, if there is enoushy otherwise on 2 
disk» will allow you to imterface your SYM to data services, time 
shearer etc.» throush a modem. A number of readers are workings on this. 
Qur sussestion to those who asked was essentially as follows! [urlicate 
the RS232 hardware and software in SYM (at a fixed baud rate to save 
memory space) and let the external system inmterrurt to det action. 
Your edded software will have to rrovide the necessary communication 
Frotocol (use full duplex) to “"handshake",s using some of those control 
codes you may have wondered about. So far no one has told us they have 
completed the general task» although 2a number of readers have had 
success in talking between SYMs or SYMs and Arrles. 


Incidentally, it is 2 rather simple task to interface two SYMs along 
the cassette interface for hex interchansgey in an ad hoc ways, rutting 
one SYM in the .L2 mode and the other im the .S2 moder or LOAD and SAVE 
im BASIC. We have not gone all of the way with thisy eutomatings the 
Procedure so that a signal on the AUDIO IN line triggers an interrurt. 
To do this would necessitate tieinsg FB6 of VIA #1 to either CK1 or CAly 
and rrosramming the selected Fim to denerate an IRQ on the "first" 
transition. 


SYMPHYSIS 1979-80 INDEX AVAILABLE 

Jack Gieryic has prrerared an index covering the contents of Issues 0 
through 6. You can order rrinted cories from him for $2.00» US/Canaday 
$3.00 overseas, The index was rrerared in RAE-1 formats he sent us @ 
cory on cassettery which we now have on disk, We will compare the 
relative utility of softcory (CRT) and hard cory information retrievals 
using the index as a test vehicle. Jack’s address is 2041 - 138th Ave.» 
NoWer Andoverrs MN 55303. 


SPEAKING SOFTLY (ON SOFTWARE) 

Some very useful software is coming in faster than we can check it out. 
We will describe some of the choicer items here. They ere either too 
lons or too numerous to rublish in a regular issue. Also many are in 
Preliminary formy and will need additional commenting and instructional 
documentation before release is advisable, 


>>>tiny-c and TECO-TYPE WORD PROCESSOR<< 
The ones we do rlans for sures to markets include tiny-c (from tins-c 
associates), relocated downwards to $0400 from the original SYM~-1 
version by Jim Goodnow IIy with a modified cassette patchy andy later 
this yearr one of two (or Frerhaers both) TECO-tyre word Frrocessors,. 
TECO is a2 Text Editor available on DEC systemsy and many SYM-1 owners 
would erefer TECO to RAE» because they learned TECO first. 
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Actually» there ere more word Frocessors available for SYM-1 mow than 
we can user but we have checked out those we know of» and feel that the 
choice is a matter of rersonal rreference. If you use FORTH with its 
own built-in Resident Assembler Editor (that’s RAE !)» you may not meed 
RAE-1 and SWP-1l» so you could ort for TECO-tyre (we can’t call it 
TECO). 


2>>SUPERMON EXTENSIONS<<< 


One of these days» we'll set ur a Frackase of all of the goodies 
designed by Tom Gettys as SUPERMON extensions, to fill the 4K dar at 
$9000» or wherevery since vyou’ll get fully commented source code on 
cassettery and can addy subtracts and modify to vyour mind’s content 
before burning it into EFROM. He has added "named" .S2 and .«L2 (very 
nice) and five or six kinds of .V (for Verify). These include Verify 
for Checksum only, very fasts and a really fancy one which we rublish 
elsewhere in this issue 2s a free-standing (not linked to MON as a 
built-in command) versions with several examples of its use. 


232A SYMBOLIC DISASSEMBLER<<< 


During the next euaerter we hore to distribute the RAE Sybolic 
Disassemblery beings develored by John Hissink. It will be 2 two-rass 
disassemblery the best kindy as RAE is @ two-pass assembler. Ferhars 
the combination should be called RADE? John has completed FASS 2» the 
most sorhisticated party and is addins what he calls "all sorts of 
bells and whistles". What the RSI does is create a rseudo source code, 
which may be edited and reassembled as desired by RAE-1. The user is» 
of coursey resronsible for flaessing a11 addresses outside the Frrosram 
as externalsy addins the .BY for table entries and the #Ly and the #H» 
for 311 vectors within the rrogram. The human algorithm for doing this 
is still mot well enoush defined to program. The user adds a -EN at 
the ends and 2 «BA $xxxx at the besinnings makes any desired 
customizations, and reassembles to suit. See how easy this would make 
it to move all of the RIOT (RAM*I/OsTimer) block and MON ur and down? 
We include 2 sample outbut elswhere for your information. It is a very 
Powerful aid. Can’t wait to try it om Microsoft BASIC! 


Since even uncommented source code occuries much more memory srace than 
its corresponding obJect codes the source code could be generated in 
sedments and stored with the .CT directive at the end of all sections 
excert the last. You could also work on desired sections for study 
Purposes by using .CE (Continue on Error) to Frermit assembly with 
undefined (external to the section) labels. After you have analyzed 
the sections you can rerlace the arbitrary labels with meaningful 
labels» add commentsy etc.» and have your own “‘unofficial"* source code. 
Does anyone out there really know the law on whether such a synthesized 
source coders bearings so much of the doer’s sweaty bloody cursesy and 
tears, can at least be rut into the rublic domain? I’m sure Microsoft 
has a firm Frosition on thisrs but hes there been a test case and 
definitive decision? 


We had rlanned to publish in Issue No. 1 the first rart of what we would 
whimsically call "A Detective Story", showings how to exrlore the 
musteries of KAS-1» in rarticulary and of Microsoft BASIC: im seneraly 
but our plans went awry. We felt that this would be of rarticular 
interest to besimnerss sincer not only was the Reference Manual surrlied 
with BAS-1 quite sketchy, it was downright shot full of errors im the 
sections dealing with rrecision and method of data storage. Sov here is 
the lons delayed part one. We describe only the rrocedure. We leave it 
to you to find outy not “Who did it?" (that was Microsoft), but "How was 
it done?" 
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First, fill part of the memory with AA’sr because they are easy to srot. 
Use the MON commands ‘’.F AAsOryFO’s and ’.F AAr20073FF’. Next enter 
BASIC with ’.J 0’, and answer the MEMORY SIZE? prompt with 10247 and the 
WIDTH? yfromet with whatever value you wish. Later on try to find the 
maximum and minimum values BAS-1 will accert. For mows howevery enter 3 
simple programy such as the following (you might do better, rerhars, to 
start with only rortions of the rrogramy and gradually build ur to test 
other featuresy e. Ss.» string arrays and integer arrays!)+ 


100 A=3 

110 B=4 

120 C=SQR(AXA+BXB) 
130 A$="HELLO* 

140 BS="GOODBYE* 
150 C$=A$t* AND "+B$ 
160 FOR I=1 TO 5S 
170 ACI)=IxI 

180 NEXT 

190 PRINT Ass B$sC$ 
200 PRINT AyBrC 
210 FOR J=1 TO 5 
220 PRINT JrACJ) 
230 NEXT 


‘RUN’ the Frrodgrams then enter MON with 2 RST. Nows print out the 
contents of the first 1K of memory with ’.V Or3FF’. Note the values of 
the seven rointers (14 bytes) from $007K throush $0088, and examine the 
memory contents of the six sections of memory between successive Fairs 
of these pointers. The six sections are for: 


1) The program itself 

2) Simple variables and string rointers 
3) Array variables 

4) Free space 

5) "Computed" strings 

6) "Garbage" 


Now, with the following hintsy and the erroneous, but at least 
suddestivery material in the reference manualy see if you can “fisure it 
out". We knows from our corresrondencer that many readers are in very 
isolated places, where a task like this one would actually be the most 
exciting thing they could find to do om most any given evening. 


4) Line numbers are converted to two hex bytesr inverted order, 


2) Keywords, e@. ger PRINTy FOR: USRy SQRy etc.s are converted to one 
byte “tokens",s with the high order bits eaual to 1. 


3) In the variable storage areas and in the string Pointer serear the 
variable names are encoded in modified ASCII form (two bytes), with the 
two high order bits indicatins whether the variable is intedery 
floating, or string derendins on how they are set. 


4) Integer variables are stored, rather wastefully, in easy to recognize 
hex forms with unnecessary 00 bytes, No storage srace is saved by 
declaring 28 variable as an integer. For integer arrays, howeverr it 
does ray to use the ’%’ to save memory, as experimentation will show. 


5) Floating point variables, i. e+, those variables whose ‘nemes* do not 
include a ‘’%’ or ‘$y are stored with exronent and mantissar with each 
part carrying its own sidn bit. Since the standard storase form for 2 
floating roint number is ‘normalized" so that the mantissa is dreater 
than one-half and less than one: the first bit of the mantissa is always 
considered to be a ones so it need not be "written". This convention 
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We received a vers interesting letter and software from John Newmans 
1/14 Marine Pde» Victoria 3182 Australia. We rerroduce parts of both 
below. Flease mote that he rrovides the source code only for the Kansas 
City Dumer not for Load. For this reason we have mot been able to test 
it completely. Perhars one of our readers will be able to surrly the 
Load rrosgram. 


We print only those Portions of Mr Newman’s source code rertinent to 
cassette orerationss since much of the rest hes been rreviously 
Published in SYM-PHYSIS. Note that John orerates his SYM-1 format 
cassette saves and loads at 2800 Baud (twice normal sreed)! You will 
note that he does not call his saves and loads in the "usual" way, but 
makes the saves through LIST in BASIC: and PRint in RAE by chansing 
QUTVEC. The data is rrinted in blocks om the terminals and then dumred 
on cassettery in ASCII format. His loads are made by changing INVEC to 
Point to his load routine. We plan to use this arrroach on our disk 
system, too. Not only cam ASCII data files now be exchansed directly 
between many tyres of comruterss using the KC Standard, but they can be 
Passed indirectly between RAE and BAS via ceaessetter for editing 


PUTFOSeS+ 


If you have enough memory, you camry of coursery ASCII dump and load to 
and from memoryy sreeding ur the editing Process. Remember we susdested 
this in an early issue, but never got around to working out all of the 
details? We’d like to hear from any of you who do complete this task. 
As they say in the textbooks, this is left as an exercise for the 
reader! 


We sussest two modifications to John’s Frograms? Firsts whenever 
writings to system RAM, include a JSR ACCESS, Seconds when changing 
QUTVEC and INVEC, as is done here: save the old entries in RAM om entrys 
and restore them on exit. This will eliminate the necessity for the two 
different exits, one for RASIC and another for RAE, as used in this 
Program (we killed the BASIC exit in this listings: since the location of 
GETCHR vhich BASIC uses for INVEC is not available). We have not tested 
all asrects of the rFrodram, Those we have tested do work Frorerly, 


lear Lux? 


I am mow running 32K of RAM om my SYM-e The boards I use for RAM 
ere boards designed by a colleague to fit @ 6800 bus as used by Telecom 
Australiary and built by myself. There is also 4 K of RAM at $7000 to 
$OFFF for utility routines, etc. 


I talk to the SYM with a KTM-2/80 and use an old Olivetti terminal 
es 2 pFrrinter. Unfortunately, the rrinter is currently out of actions 
and» for hard cory, I am forced to make Kansas City Standard tares and 
use them on one of the terminals at work. 


To generate K.C. taress I have written a routine which is included 
tin the routines in the assembly lansuase frrosgrams on this tare in File 
2. Other frrograms in the file (arart from those coried from SYM-FHYSIS) 
ere some routines for inrut and outrut of data files in BASIC, These 
routines are celled from BASIC by “USR* statements. They are also 
usable from RAE-1, Sorry about the lack of comments, but when I 
develored these, I didn’t have very much memory and I haven’t vet sot 
‘round to writing them. There is @ BASIC Frogram "C* on the tare after 
FO2 which has an example of their use. 


I have been working on a "“Surer-SYM" alongs the lines mentioned in 
issue S/6 of SYM-PHYSIS, but with BASIC & RAE-1 im EPROM attached to a 
courle of peripheral Forts, instead of on disk. This arrroach will 
erobably develor into 3a comrlete RAM simulated disk system» in time, 
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I sroke to Carl Moser on the telerhone about obtaining a relocated 


version of 


RAE-1» 


but he didn’t seem very enthusiastic about the idea. 


As I had already done a lot of work on disassembling RAE, I rersevered 
and now have a completely relocatable source version which works» im RAE 


format, on tare. 


Frices of disk systems in this country are still fairly hishy e.des 
arprox A$400 for a single miniflorry drive without controller, whereas 


memory chirs ere very cheers 


2114’s at A$2.95 & 4114’s at A$4.90. 


In case vou have trouble reading this tarey I have enclosed hard 


cory of the 


lettery and 


the 


track and 64 blocks of test rattern 
NOTES". There are also three cories of each file on the tare, 


ASSEMBLE LIST 


0001 
0002 
0003 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 


— << 


ABBREVIATED 
PROGRAM,» 


+ES 
«LS 
+OS 


"B* side of the tare is a long "SYN" 
as described in "SYNERTEK TECHNICAL 


Yours sincerelyy 


John Newman 


VERSION OF JOHN NEWMAN’S UTILITY 


MOVEL TO $3000 BY LUX 
LINE NUMBERS AND SEQUENCE NOT MODIFIED 


#TERMINAL CONTROL PATCH ANI BASIC TAPE I/0 ROUTINES 


+RENUMBER 


9SYM BASIC RENUMBER PROGRAM 


!!'LBI 


!!tSBI 


!!'ISTB 


!!'ocr 


!''0c 


!1'ps 


HlIpsz 


«BA 
MDD 
STA 
ME 
»MD 
LDA 
+ME 
+ MI 
LOA 
ME 
»MD 
STA 
ME 
Mo 
LIA 
STA 
ME 
MO 
LOA 
oc 

ME 
MD 
JSR 
+ME 
+ MII 
LIA 
STA 
LIA 
STA 
ME 
MD 
LOA 
STA 
LDA 
STA 
ME 


$3000 


CINDEXA) +¥ 


CINDEXA) 9 ¥ 


CINDEXB) sY 


CINDEXE) + ¥ 


(BYT ADR) 
#BYT 
ADR 


(CH) 
#CH 


$BAAO0 


(DATA ADDRS) #PUT DATA IN ADLIRS 
#L TATA 

ALLIRS 

#Hy DATA 

ALIRG +1 


(DATA ADDRS) #FUT DATA IN ALDRS 
xXDATA 

XxADIRS 

xXDATAtI 

XADDRS+1 
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0430 sTAPE SPEED SETTING MACROS 1120 INDEXER DE $79 


0440 !!1!T1S +MD 1130 CHRGET +DE $CC 
0450 JSR TiS.SET 1140 CHRGOT +DE $02 
0460 +ME 1150 FIXLNK DE $C323 
0470 !!!1T2S +MD 1160 LINGET DE $C7F5 
0480 JSR T2S.SET 1170 FLOATC DE $D9OFF 
0490 «ME 1180 FOUT +DE $lB9A 
0500 #THIS MACRO ACTUALLY SETS TAPE SPEED 1190 MESSUB DE $0954 
0510 !!!TSS »MD (HB Ti T2) 1200 BREAKIN ~DE $00 
0520 LOA #HE 1210 BACK DE $£0 
0530 STA $A632 1220 ERMESS DE $C25A 
0540 LDA #T1 1230 GVARAL +DE $CE63 
0550 STA $A635 1240 OUT LE $8A47 
0560 LUA #T2 1250 OUTBYT +DE $82FA 
0570 STA $A63C 1260 CRLF DE $834D 
0580 RTS 1270 ACCESS “DE $8886 
0570 +ME 1280 INTCHR DE $8A58 
0600 #JUMF TABLE 1290 SPACE DE $8342 
3000- 4C CC 30 0610 JMF TF. INIT 1300 $ 
3003- 4C 51 31 0620 JMP TPEND 1310 $ROUTINE FOR OUTFUTTING TO TAFE IN KANSAS CITY STANDARD 
3006- 4C FB 30 0630 JMP TR.INIT 1320 5 
0640 + JMP BTREND 1330 FINIT DS (OUTCHT OUTVECH1) 
0641 § THE ABOVE IS TO RESTORE GET.CHR TO INVEC 
3009- 4C 78 31 0650 JMP ETREND 300C- a9 2E 
0690 sSYSTEM EQUATES ZOOE- 8I 64 AG 
0700 TILL +DE $A806 3011- AY 30 
0710 T1CH +E $A805 3013- 80 65 AS 
0720 T1LH +DE $A807 
0730 ACR +DE $A80B 3016- AY CO 1340 TONE LIA #%11000000 
0740 IFR +DE $AB0D 3018- 80 OF AB 1350 STA ACR 
0750 IER +DE $A80E 301B- AY 00 1360 LDA #0 
0760 TRIG.FATCH «DE $00C4 301D- 8D OF AB 1370 STA IER 
0770 BUFFER .- +DE $0135 3020- AI LO 1380 LDA #$10 
0780 BASIC.COLD .DE $C000 3022- 80 06 AB 1390 STA TILL 
0790 BASIC.WARM .DE $C27E 3025- AP 00 1400 LIA #0 
0800 OUTVEC +HE $A663 3027- 80 07 AB 1410 STA T1LH 
0810 INVEC +HE $A660 3O2A- 80 05 AB 1420 STA T1CH 
0820 RESXAF -DE $8188 302D- 60 1430 RTS 
0840 TAFOUT +E $A402 BO2ZE- 20 67 30 1440 OUTCHT JSR PARITY 
0850 CPOSP +DE $A600 1450 oc 
0860 CPOSR +DE $Aé601 
0870 SAVER +DE $8188 3031- 20 AO BA 
osso In +DE $A643 
0890 MODE +DE $Fo 3034- BE 38 AS 14640 STX $A638 
0900 CONFIG +DE $8905 3037- BC 39 AS 1470 STY $A639 
0910 ZERCK DE $832E 303A- 85 FC 1480 STA X$FC 
0920 P2SCR +DE $829C 303C- 20 BO 30 1490 JSR LOW 
0930 LOADT +DE $8078 3O3F- AQ FF 1500 LOA #$FF 
0940 RESALL. DE $8188 3041- 48 1510 K.C.BIT FHA 
09750 DUMPT DE $8687 3042- 46 FC 1520 LSR X$FC 
0960 TSTART »DE $A64C 3044- 90 06 1530 RCC LF 
0970 TEND “DE $A6é4A 3046- 20 91 30 1540 JSR HIGH 
09780 TSTAT *DE S$8BSC 3049- 4C 4F 30 1550 JMF ROT 
0790 OUTCTX +DE $8F13 304C- 20 BO 30 1560 LF JSR LOW 
1000 TAPDEL »DE $Adé30 3Z04F- 68 1570 ROT PLA 
1010 TXTTAB -DE $7B 3050- OA 1580 ASL A 
1020 NWSTRT +E $58 3051- BO EE 1590 BCS K.C.BIT 
1030 BEGIN DE $5A 3053- 20 BO 30 1600 JSR LOW 
1040 STEF DE $5C 3056- 20 BO 30 1610 JSR LOW 
1050 SLINE DE $5E 3O59- 20 91 30 1620 JSR HIGH 
1060 HLINE +UE $60 3OSC- AE 38 AS 1630 LIX $A638 
1070 VARTAB +DE $70 3OSF- AC 39 Ab 1640 LLY $A639 
1080 FACTO +DE $B2 3062- AD 00 A6 1650 LIA $A600 
1090 LINNUM »DE $1C 3065- 98 1660 TYA 
1100 TXTFTR »BDE $D3 3066- 60 1670 RTS 
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3067- 
306A- 
3060- 
3070- 
3072- 
3074- 
3075- 
3078- 
3O07A- 
307B- 
307C- 
307E- 
3O7F- 
3081- 
3083- 
3086- 
3089- 
308C- 
3OB8E-— 


3091- 
3093- 
3096- 
3098- 
309B- 
3OPE- 
30A0- 
3OAS— 
3OAS-— 
3OA7- 
3OAP- 
3OAC-— 
3OAD~ 
SOAF- 


3OB0- 
3OB2- 
3OBS— 
30B7- 
3OBA- 
3ORC- 
3OBF- 
30Ci- 
30C3- 
30C5- 
30C8- 
30C9— 
30CB- 


30CC- 
3OCE- 


3oD1- 
3on4- 


nS 


81 
AG 
Aé 


A6é 


AG 
81 
A6é 


81 


A8 


A8 
Ag 


AB 


Ags 


A8 
A8 


a8 


A8 


AG 


31 


1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
3670 
3680 
3690 
3700 
3710 
3720 


3730 


. 


, 
sEVEN PARITY GENERATING ROUTINE 


JSR SAVER 
STA $A600 
STA $A601 
LOX #0 

LDY #8 

cLc 

ROL $A600 
BCC ZERO 
INX 

DEY 

BNE FARLOOP 
TXA 

AND #1 

BNE ODD 
LDA $A601 
JMP RESXAF 
LIA $Ad01 
ORA #$80 
JMP RESXAF 


’ 
PARITY 


PARLOOP 


ZERO 


ong 


. 


, 
sOUTFUT ONE BIT OF 2400 HZ (300 BAUD) 


LIA #$L10 

STA TILL 

LOA #0 

STA TiLH 

STA T1CH 

LOX #16 

LUA IFR 

AND #%01000000 
BEQ LOOFH 

ORA #Z%01000000 
STA IFR 

DEX 

BNE LOOFH 

RTS 


i 
HIGH 


TIMH 
LOOFH 


’ 
sOUTFUT ONE BIT 1200 HZ 

, 

LOW LDA #$A1 

STA TILL 

LDA #1 

STA T1iLH 

LUX #8 

LDA IFR 

AND #Z%01000000 
BEQ LOOFL 

ORA #%01000000 
STA IFR 

DEX 

BNE LOOFL 

RTS 


, 
32800 BAUL TAFE PRINT INITIALISATION 


LIA #$18 
STA TAPDEL 
T2S 


, 
TP. INIT 


LDX #$FF 
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30D6- 
30nD8- 
30OD9- 
30nC- 
3ODE- 
3OEO- 


30E3- 
30ES- 
3OE8~ 
SOEA- 


Z0ED- 
30EF- 
30F 2- 
30F 4- 
30F7- 


3134- 
3137- 


AE 


88 
oO1 


31 


31 


Aé 


A6 


Aé 


A6 


81 


31 


31 


Ad 


81 
Ab 


3740 
3750 
3760 
3770 
3780 
3790 
3800 


3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3700 


3910 


3720 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 


4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 


LUA #$00 

INX 

STA WORKEF +X 
CPX #$FF 

BNE LOOP? 
JSR TSAVE 


LOOF? 


0S (TPRINT OUTVECt+1) 


LIX #$00 
STX CPOSP 
LIA #$02 
STA TAPDEL 
RTS 


2800 BAUL TAFE REAL 


JSR SAVER 
T2S 


0S (TREAL 


JSR TLOAL 
LUX #$00 

CPX WORKBF+1 
BNE TR. INIT 
STX CPOSF 
JMP RESALL 


, 
yPRINT DATA TO 


INVECt1) 


INITIALISATION 


TAFE BUFFER IGNORE LINE FEES 


¢WHEN BUFFER IS FULL WRITE DATA TO TARE 


, 
TPRINT LOX CPOSP 
JSR PARITY 
STA WORKEF +X 
oc 


CMP #$A 

BEQ LINEFEELD 
CPX #$FF 

BNE NOTENIIF 
JSR TSAVE 
INX 
STX 
RTS 


NOTENDP 


LINEFEED CFOSF 


, 


sREAD DATA FROM TAFE BUFFER 


yWHEN BUFFER IS EMF TY GET MORE DIATA FROM TAFE 


, 
TREAD JSR SAVER 


LUX CPOSR 
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313A- 
313D- 
313F- 
3141- 
3144- 
3147- 
314A- 
314B- 
B14E- 


3151- 
3154- 
3156- 
3158- 
315A- 
315D- 
3160- 
3163- 


3146- 
3168- 
316B- 
3160D- 


3170- 


3173- 


3174- 
3177- 


3178- 
317A- 
317D- 
31 7F— 


3182- 


3185- 


3186- 
3189- 


20 


60 


20 
60 


A? 
8u 
A? 
8n 


20 


60 


20 
Aa? 


cs 


58 


AE 
FF 


AS 


31 
Ab 
31 
31 


Ab 


Aé 


31 


31 


Aé 
Ab 


5 31 


31 


4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 


4420 


4430 
4440 
4450 
4460 
4470 
4480 
4490 


4500 
4510 
4520 
4530 
4540 


LDA 
CPx 
BNE 
STA 
JSR 
LDA 
INX 
STX 
UMP 


NOTENDR 


. 
, 


WORKBF + X 
#$FF 
NOTENDR 
$A608 
TLOAD 
$A608 


CPOSR 
RESALL 


sWHEN TAPE WRITE IS FINISHED FILL UNUSED BUFFER 
sWITH NULLS AND WRITE TO TAFE. RESTORE OUTPUT VECTOR 


; 
TPEND LDX 
CPX 
BEQ 
LDA 
STA 
INC 
JMP 


BUFF.FULL JSR 


CPOSF 
¥$FF 
BUFF. FULL 
#$00 
WORKBF +X 
CPOSP 
TFEND 
TSAVE 


[IS ($B8AAO OUTVECt1) 


Tis 


RTS 


sWHEN TAFE INPUT FINISHED RESTORE INPUT VECTOR 
3TO0 BASIC CONTROL FATCH 


sBTREND DS (GETCHR INVEC+1) 


Tis 


RTS 


5 
sRESTORE EDITOR INPUT VECTOR 


5 
ETREND 


Tis 


RTS 


DS ($8A58 INVEC+1) 


, 
sLOAD DATA FROM TAPE INTO BUFFER 
; 


TLOAD 


JSR TINIT 


LDA #$FF 
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318B- 
318E- 
ep tid 
3194- 
3195- 
3197- 


319A- 
319D- 
i hd ao 
31A2- 
31AS~ 
31A8- 
3LAI~- 
3LAB- 


S1AE- 
31B0- 
31B3- 
31B5- 


31B8- 
31BA- 
31 BD- 
S1BF- 


31C2- 
3104- 


31C5- 
3107- 
31CA- 
31CC- 
3iCK- 
3101- 
3104- 


SiDS- 
31D7- 
31DA- 
31DC- 
S1LDF- 
S1E1- 
3L1E4- 


31ES- 


8D 
20 
20 
D8 
Ag? 
4c 


20 
Ag 
80 
20 
20 
D8 
Ag? 
4c 


Aa? 
8D 
A? 
8D 


Ag 
8D 
Ag 
sn 


AO 
60 


Ag? 
8D 
ag 
8h 
Ag? 
80 
60 


A? 
8D 
Ag 
8D 
Ag 
8p 
60 


AS 
A6é 


Aé 


Aé 


AG 


Ab 


Ab 


A6 
Aé 


A6 


4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 


4830 


4840 
4850 
4860 
4870 
4880 
4890 


4900 


49710 
7820 
7830 


SKP 

, 

sSAVE DATA 
5 


TSAVE 


SKIFL 


STA ID 

JSR SAVER 
JSR LOADT 
cLo 

LDA #$00 
JMP RESALL 


IN BUFFER ON TAPE 


JSR TINIT 
LIA #$00 
STA If 

JSR SAVER 
JSR DUMPT 
cLo 

LIA #$00 
JMP RESALL 


; 
sINITIALISE TAFE BUFFER ADDRESSES 


TINIT 


DS (WORKBF TSTART) 


0S (WORKBF+256 TEND) 


LDY 
RTS 


#$80 


sTAFE SPEED SETTING SUBROUTINES 


; 
T1S.SET 


T2S.SET 


; 
WORKBF 


TSS ($46 $33 $5A) 


TSS ($23 $19 $21) 


+S $256 
+EN 
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(Continued from rase 738) 

frees the rosition so that it may be used as the sign bit Position. tie 
no one told you thisy vou could waste much time wonderinsa why the 
floating roint number didn’t "compute"! 
DIM statement so that could 


6) We purrosely did not include a you 


observe the default value. 
the fun 


If we told you any morer would all be gone! 


A SIMPLE DATA SAVE AND IATA LOAD FROGRAM FOR BASIC 


For those of you who wish to be able to save and (re)load variable files 
from BASIC» we publish the following machine lansuase Program submitted 
by Hugh Criswelly and modified (very slightly) by us. Note that the 
if you relocates 


program is fully relocatable 211 you need modifyys are 
the first rarameters in the USR calls. It is extremely imeortant that 
the rrogram which recalls the data be no lonser than the Frrosram which 
stored the data. Also» if you modify the calling Frrosram after 
recalling the data it (the data) will be cleared. Andy one final 
warning, don’t start your Frrogram with a RUN (since RUN includes an 
imelicit CLEAR)’ rathery use a GOTO the arrrorriate line mumber, If you 


wish to rass data files between several BASIC Frosrams with this tyre of 
programy "rad" your rrograms with nonessential REMss so that any date 
files recalled will not overlay meaningful rarts of any of the rrosgrams. 


For one examples you might set ur 
involving As¢(IyJ) 
and *J* would 
A$(Ty1) 


Of what use is this tyre of Program? 
a data file for an inventory of a record collections 
and ACIsJ). "I" would be an index number for each items 
be an index number for each “*fact" to be stored for that item. 
might be the Artist’s Names A$(Ir2) the Comroserr A$(Iy3) the Title. 
ACIyJ) would be used for numerical facts, like costs current value, 
etc., so that you can do arithmetic on these mumbers. So mow sou know 
how to set ur Data Bases from BASIC! 

ASSEMBLE LIST(ISAV2) 


0010 + SAVE AND LOAL BASIC DATA SUBROUTINES 

0020 

0030 + SUBMITTED BY HUGH E. CRISWELL 

0040 + MINOR MODS AND REMS BY LUX 

0050 

0060 # CALL WITH X=USR(SAVE.DATA, 256xID) TO SAVE LATA 
0070 $ CALL WITH X=USR(LOAD.DATAr 256xID) TO LOAD DTIATA 
0080 

0090 3 DEFINE THE VARIABLE X IN THE FROGRAM, TO 

0100 + ALLOCATE SFACE FOR ITy I.E+» INCLUDE A 

0110 + STATEMENT SUCH AS X=1?I=1 IN THE PROGRAM 

0120 

0130 § FULLY RELOCATABLE ANDI) EFROMABLE 

0140 

0150 + DON’T FORGET TO RESERVE 12 BYTES AT THE TOF OF 
0160 # MEMORY FOR THE FOINTERS!! 111! 

0170 

0180 + FOR EXAMPLE» WITH SAVE DATA AT $0COCy THE MEMORY 
0190 + SIZE PROMPT SHOULD BE ANSWERED WITH 3072 (=$0C00) 
0200 

0210 + IT WOULD BE CONVENIENT TO INCLUDE STATEMENTS 

0220 + SIMILAR TO THE FOLLOWING AT YOUR FROGRAM’S END: 
0230 

0240 3 S000 END 

0250 3 5010 FOR I=1i TO 3!SAVE AtNEXTSEND 

0260 35 5020 FOR I=1 TO 3:3X=USR(30847256k65) ;NEXTSEND 
0270 + 5030 X=USR(31737256xk65) SENDS REM-RELOAL LATA 
0280 5040 REM- GOTO THE PROPER LINE ABOVE TO FERFORM 
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Ococ- 
Ocon- 


OCOF- 
oci2~ 
OC14—- 
ocis- 


OC17- 


Oc1A~ 
ocic- 
OcLF~ 
oC21- 


0C24- 
0C26- 
0C29- 
OC2B- 


OC2E- 


OC2F- 
Ocai- 
0C33- 


0C36- 
OC38- 
OC3A- 


Oc3n— 
0C40- 


0c42- 
0C43- 
OC46- 
OC48~- 


OC4E- 
Ocal 
ocso- 
ocs2- 


0css- 
OfS7= 
OcSAa- 
ocsc- 


4c 


40 


70 


Fo 


00 


8 


z AG 


Aé 


Ab 


Aé 


Ab 


Ad 


87 


» AG 


A6 


Aé 


Aé 


A6 


Ab 


0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0570 
0600 
0610 
0620 
0630 
04640 
0650 
0660 
0670 
0680 
0670 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 


oe 


5050 REM~ YOUR DESIRED SAVES ANI LOADS 
5060 REM- GOTO 5020 ONLY AFTER A SUCCESSFUL RUN 


; BAS-1 AND MON-2 DEFINITIONS: 
BAS.USRENT .DE $114C 
HLOCKMOVE .DE $8740 
WRITE .DE $8E87 
REAL . LE $85F3 
ACCESS .DE $886 
.BA $0C0C 
0S 
SAVE. DATA FHA 
FTRS.UP LDY #12=1 
MOVE.UF LIA $7IIrY 
STA ($87) rY 
DEY 
BFL MOVE.UF 
IATA. DOWN JSR ACCESS 
LDA x$81 
STA $A64E 
LIA *$82 
STA $A64F 
LIA *$83 
cre ae OCOC 48 AO OF RY 71 00 91 87741 
ine aed 0C14 88 10 F8 20 86 8B AS 81728 
septa OCiC Bl 4E AS AS 82 Bl 4F Aby52 
0C24 AS 83 Bl 4C AS AS 84 BLlyAF 
~ OC2C 40 AS 18 AS 87 69 OF BIlyE7 
0C34 4A AS AS 88 49 00 BL 4hy45 
OC3C AS 20 40 87 AO BO 68 BIE? 
oe gad 0C44 4E Ab AP 00 BD 4F Ab ASYAR 
OTA. SAGHA OC4C 70 Bl 40 AS AS 7E Bll 4ItyA4 
0C54 Aé AS FI Sl 4B AS AS FC+0B 
OCSC BI 4A AS 20 B7 BE 38 HOrAS 
poi ag 0044 OL 48 20 86 BB BI 4A AérAB 
Ee eas OCéC 20 F3 85 68 BO F3 38 A5»28 
0C74 FE E9 OC 85 FE AS FF E92 
Es ree OC7C 00 85 FF AO OB B1 FE 99rA2 
JSR BLOCKHOVE 0C84 7D 00 88 10 FB AS 83 B64 
we OCB8C 4E AS AS 84 BI 4F AS ASYAB 
TAFE.OUT LEY #$80  Oco4 81 Bn 4C AS AS 82 BI 4DrA9 
as OC9C AS AS FE BI 4A AS AS FFr13 
Coe ies OCA4 BI 4B Ab 20 40 87 AC 4Cr10 
OCAC D1yE4 
LIA #0 S1E1 
STA $A64F E 
LDA x$70 
STA $A64C 
LIA X$7E 
STA $A64D 
LDA x$FD 
STA $A64E 
LDA x$FC 
STA $A64A 
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OCSF- 


0C62- 
0C63~ 


0C465- 
OC466- 
OC49- 


OCéC- 


OC6F- 
0C70- 


0C72- 


OC73- 
oc75- 
0C77- 


0C79- 
OC7B- 
Ooc7n- 


OC7F- 


ocei- 
OC83- 
OC86- 
0C87- 


OC89- 
OC8R- 
OCBE- 
0C90- 


OC93- 
OC9S- 
OC98- 
OC9A~ 


oce?n- 
OC9F- 
OCA2- 
OCA4- 


OCA7- 


OCAA~ 


85 


85 


4c 


87 


on 


86 
4A 


F3 


F3 


FE 
oc 
FE 


FF 
00 
FF 


OB 


FE 
70 


FS 


83 
4E 
84 
4F 


81 
4c 
82 
40 
FE 
4A 
FF 
4B 


40 


AC 


BE 


8B 
AS 


00 


Aé 


Aé 


Aé 
A6 


A6 
Aé 
87 


nd 


0940 
0950 
0960 
0970 
0780 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 


JSR WRITE 


SEC 
BCS FIRS. DOWN 


LOAD. DATA FHA 


JSR ACCESS 
STA $A64A 


JSR REAL 


PLA 
BCS LOAD. DATA 


PTRS. DOWN SEC 


5 
5 


MOVE.DOWN LDA ($FE)7Y 


DATA.UP LIA *$83 


ew «ee 


NOTE THAT» AFTER A TAFE READ OR WRITE. 
FE/FF CONTAINS EOT (TOP OF MEMORY) + 1 


LIA X$FE 
SBC #12 
STA X$FE 


LIA x$FF 
SBC #0 
STA X$FF 


LOY #12-1 


STA $7DI+Y 
DEY 
BFL MOVE.DIOWN 


STA #A64E 
LIA «$84 
STA $A64F 


LIA *$81 
STA $A64C 
LDA x$82 
STA $A64I 


LIA *$FE 
STA $Aé4A 
LOA x$FF 
STA $A64B 


JSR BLOCKMOVE 


I (LUX» THAT IS) PREFER 


THE FOLLOWING METHOD 


OF RETURNING FROM USR OVER A SIMPLE RTS» BECAUSE 


FOR THE LATTER? 


AND, I THINKs 


PARTICULAR TYPE OF PROGRAM. 
HAL PROBLEMS RELATED TO THIS 


JMF BAS. USRENT 


+EN 


THE RETURNED 


VALUE IS GIBBERISH: 
HAS CAUSED ME PROBLEMS IN THIS 
HAVE ANY OF YOU 
"PHENOMENON" ? 
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THE HOE FOLDS 
Many of our readers have enauired about FOS, HIIE’s File Oriented Disk 


Sustemy so we’ll tell you a little about ity here. First of ally FOLDS 
is a complete DOS» including its own text editors TED, assemblery ASM: 


text outrut systems TOPS: a dreat version of Microsoft BASIC» and @ very 
advanced interactive disassembler, AID, rFlus 2@ number of surrorting 
utilities. 


It was designed primarily for mear “bare-bone* systems like TIM 
(Terminal Inreut Monitor)» and KIM (Keyboard Inrut Monitor): whose only 
factory surrlied firmware is in the 1K and 2K ROMS named after their 
contents, We have a nearly complete version (a11 but the BASIC)» and 
consider FOLS to be one of the most useful of the D0S’s we have studied. 
Naturally» Dick Grabowsky, its designer, agrees with us! We rarticularly 
arrreciate the fact that the FOIIS TEL/ASM/AID rackage (unlike RAE-1) is 
fully compatible with the original MOS Technology syntax, making for 
better transrortability between 6502 systems. 


Furthermores files cam be passed between BASIC and TELly for editing 
rpurrosesy since the method of storing BASIC files is im ASCII with the 
carriade returns treated the same as in TED. You might wish to check. 
how BAS<1 and RAE-1 handle their carriage returns differently, ands of 
courses how BAS-1 keywords are actually stored on cassette in token 
form. We never have gotten around to adding modified SAVE, LOAD, PUTy 
and GET» to BAS and RAE to rrovide SYM with the same carability, 


Srecial versions of FOIS are available for AIM-65 and the SYM-1» which 
make use of the available factory surrlied firmwarery and we have 
committed ourselves to fully surrorting SYM/FODS. lick arsues that 
greater software transrortability could be achieved with a standard 
FOUS$ we argue that SYM (and AIM) owners have invested some money in 
purchasing the firmwares and much time in develorins software, before 
they are ready to invest in a disk system, and their investments should 
be Frrotected-. Several SYM/FODS users read their BAS-1 and RAE-1 (and 
ever’ MON 1.1) to disk (disassembled, relocated as desiredy and 
reassembled) and replace the ROM with RAM, maintainins thety with 2 disk. 
system: only a simrle Fower-on Reset Disk Boot EFROM is all the firmware 
required. 


We haven’t sone that farys but we do have both the SYM/FOIS and the 
standard FOIS available, hence the best of all rossible worlds. To sive 
vou some idea of how FOUS files are ordanizeds we print below a cory of 
the Standard FOUS Master Disk» then @ cory of our own SYM/FOUS Master 
[lisky and a cory of the first few rades of our Personal System Manual? 


20C DIR 2 FOLDS MASTER DISK IS ON DRIVE 2 

O01 %V3.2X 7300 7FFF 01 O1 02 XSYM 6000 612F 02 11 
03 ZHDASX 6000 6FFC 02 12 04 ZHDASY 6000 6120 04 12 
O05 “SSR 6N00 6009 04 15 06 “AID 6000 6C55 05 01 
O7 “DUT 6000 6B4C 06 10 08 XCMT 6000 65B9 08 O1 
09 %TOF 6300 6FED 08 13 10 “DIR 6000 6nCO0 10 07 
11 “FRE 6000 6EOE 10 09 12 “CPY 6000 60E9 10 12 
13 “DEL 600 6032 10 14 14 “SOR 6000 6E£74 10 15 
15 ”XFM 600 6FEC 11 02 16 “REA 6000 é61A3 11 08 
17 ZPAK 6000 6EAD 11 10 18 ZLIIN 6000 6182 11 14 


19 ZNAM 6000 6D7F 11 16 20 ZBLM 6000 6FO7 12 01 
21 “BAS 6000 696F 12 06 22 “PON 6060 6CA3 13 09 
23 “POF 6C70 6CAZ 13 10 24 “TOM 6000 6499 13 11 
25 “VER 61100 6E10 14 05 26 “TED 6000 6RFE 14 08 
27 “ASM 6000 60EF 15 16 28 XONN 6A00 6A49 16 O02 
29 “OFF 6A10 6A49 16 03 30 ZNNN 60100 6049 14 04 
31 “FFF 6010 6049 146 05 


NEXT? T16 S06 SYM-FHYSIS 7320 


ww 
=DC DIR 1 SYM/FODS MASTER DISK IS ON DIRIVE 1 
01 Z£V3.2 7300 7FFF O1 O1 02 XDIR 6000 6IiCo 
O3 XZFRE 6000 6EOE 02 13 04 ZCPY 6000 6E9 
OS ZDEL 6000 6032 03 02 06 ZSOR 6100 6E74 
O7 “*FM 6000 6FEC 03 06 08 ZXREA 6000 6LA3 
O09 XFPAK 6D00 6EAD 03 14 10 “LIN 6000 61182 
11 “NAM 6000 60D7F 04 04 12 ZBLM 6000 6F0O7 
13 “LAB 6000 6D8F 04 10 14 XFOL 6000 6D1E 
15 XNUM 6D00 6F1iC 04 13 16 XTED 6000 6BBA 
17 ZBAX 6000 696F 06 10 18 XSWF 6000 6791 
19 “PUB 6000 6799 08 13 20 XTOM 6000 6499 
21 ZRAE 6B00 6C80 10 07 22 ZRAY 6B00 6CF3 
23 “PON 6A00 6A43 10 15 24 “FOF 6A10 6A43 
Ha Na Ai fs il fs 0200 31A3 11 O1 26 X<TIB 0200 OB91 
27 “FOC 0200 242F 18 05 28 XFOR 0200 26AE 
29 ZESB 0200 16F3 27 04 30 ZXHUE 0200 OB21 
31 “FAC 6000 600C 31 01 32 “BAS 6000 65F4 
33 ZVER 6000 6E10 31 15 
NEXT? T32 S02 
2DC FRE 1 HOW MANY BYTES ARE FREE ON DIRIVE 17 


8064 ($1F80) BYTES FREE 
SYM/FODS Orerating Manual 


The followings files are mow on the master disk? 


“VSL 
“UIR 
AFRE 
“cry 
“EL 
“SOR 
AXE M 
ZREA 
ZF AK 
“LIN 
“NAM 
“BLM 
“LAB 
“FOU 
ZNUM 
“TED 
“~BAX 
“SWF 
“%PUB 
“~TOM 
ZRAE 
ZRAY 
“FON 
“POF 
~TIC 
“~TIB 
“FOC 
ZFOR 
“ESE 
ZHUE 
ZBAS 
ZVER 


Fons 
Directory 


Free memory available? 

Cory disk to disk 

Tlelete srecified file 

Sort srecified file 

Format new disk 

Reassign address space to file 

Pack disk to consolidate files 

Load file by mumber (if name deleted!) 
Chanse name of srecified file 

Block move data 

Sort RAE label file 

Return to FOUS from other systems 
Renumber BASIC rrosgrams 

HDE’s Text Editor 

HDE’s BAS/FODS Link. 

SYM Word Frocessor 

Enhanced SWF 

Tom Gettys’ SUPERMON enhancements 
RAE/FOLIS Link 
Enhanced RAEs rermits 
Printer ratch in 
Printer ratch out 
tinyg-c 

Tiny BASIC 

Enhanced FOCAL 
Enhanced FORTH 
Brown’s Extended SYM/BAS 

HUEY - Reverse Folish Calculator 
Gettys’ BAS/FODS link. 

"Wide-Screen" Verify with ASCII added 


+CT to disk 
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The use of each of these rrograms is described brief- 
ly in the following rages (one rrogdram Fer rage), The 
storade location of the accomranying manuals and any 
additional documentation, user aids, softwares list- 
ings» etce, is also rrovided, 


In addition to the Master DTlisk» a collection of 
Arrlications Disks is available. Each Disk is 

named and numbereds and @ corresrondingsly named 

and numbered Arrlication Binder contains the surrort 
documentation. 


Where extensive listings or Printouts are available 
for references these ere stored in named/numbered 
folios, whose storage location is srecified im the 
Binder. 


(NOTE? The above material is extracted from 2 manual 
being rrerared for students using the University SYM-1 
Sustem. As usualy the documentation is far behind the 
hardware!) 


Here is a vers usefuly easily relocatabley memory Gumr utility. In 
addition to rroviding 2 "*header* to hele you to read the addresses more 
readilys and listind sixteen bytes rer line instead of eighty if the hex 
byte is a Frintable ASCII code (the rarity bit is mot considered), the 
ASCII character is also rrinted in @ serarate table. This sort of dump 
can Prove very helreful in locating text files buried in @ Program. Some 
examples of its use follow the listing. It should be rointed out that 
not all ASCII characters rFrinted are “meaningsful". For examples the 
BASIC tokens will be rFrinted in @ misleading manner. 


ASSEMBLE LIST 


0010 $A "WIDE-SCREEN" COMBINED ALFHANUMERIC/HEX MEMORY [IUMF 


0020 #(DISPLAY IS TOO WIDE FOR THE 40 COLUMN KTM-2) 


0030 

0040 35 AN IMPROVED VERIFY FOR SYM-1 
0050 5 ADAFTEL FROM TOM GETTY’S’ SYM- 
0060 35 FOUS VERSION. THIS IS NOT 
0070 3 LINKED TO SUFERMON, BUT IS 
0080 35 CALLED FROM MON BY A .G TO 
0090 + ITS STARTING ADDRESS. 

0100 

0110 5 WHEN FROMPTED, ENTER THE 

0120 35 BEGINNING AND ENDING ADDRESSES 
0130 35 OF THE MEMORY SECTION WHOSE 
0140 5 CONTENTS YOU WISH TO EXAMINE. 
0150 

0160 3» HALT LISTING WITH THE "BREAK" KEY 
0170 35 RESUME PROGRAM WITH ."G"* <RET> 
0180 

0190 OS 

0200 +BA $1000 

0210 

0220 S.ADR +DE $FO 

0230 LINFTR UE $F1i 

0240 LN.CNT »DE $F 

0250 

0260 

0270 PARM +DE $8220 

0280 F2SCR »DE $829C 
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1000- 20 
1003- A2 
1005- kD 
1008- FO 
100A- 20 
100D~- E8 
LOOE- 10 
1010- 20 
1013- 20 
1016- 20 
1019- 20 
101C- AS 
1O1E- 85 
1020- AS 
1022- 85 
1024- 48 
1025- 29 
1027- 85 
1029- 20 
102C- 68 
102D- 85 
LOZF= 29 
1031- 85 
1033- OA 
1034- 18 
1035- 65 
1037- AA 
1038- 20 
103B- A? 
103D- 85 
103F- 38 
1040- ES 
1042- AA 
1043- AO 
1045- B1 
1047- 20 
104A- 20 
104D- 20 
1050- 20 
1053- 70 
1055- FO 


8B 
10 


BA 


82 
10 
83 
82 


83 


82 
83 
82 
82 


0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
04630 
0640 
0650 
0640 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
07970 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0700 
0910 
0920 


INCCMF 
DECCMP 
CHKSAD 
OUTBYT 
CRLFSZ 
OCMCK 
ZERCK 
SPC2 
SPACE 
CRLF 
INSTAT 
CHKSUM 
OUTCHR 
ACCESS 
UBRKVC 
UBRK 
USRENT 


VERIFY 


MORE 


GO.ON 


VER.LIN 


DE 
DE 
DE 
DE 
«DE 
DE 
TE 
DE 
TE 
DE 
DE 
DE 
«DE 
DE 
DE 
DE 
. DE 


JSR 
LIX 
LIA 
BEQ 
JSR 
INX 
BPL 


JSR 
JSR 
JSR 
JSR 


LIA 
STA 
LIA 
STA 


PHA 
ANI! 
STA 
JSR 
PLA 
STA 
AND 
STA 
ASL 
CLC 
Anc 
TAX 
JSR 
LIA 
STA 
SEC 
SEC 
TAX 


LOY 
LOA 
JSR 
JSR 
JSR 
JSR 
BVS 
REQ 


$82R2 
$B2BE 
$8200 
$82FA 
$8316 
$8325 
$832E 
$B833F 
$8342 
$8340 
$8386 
$8678 
$BA47 
$BRBS 
$A676 
$804A 
$8035 


ACCESS 

#0 
MESSAGE +X 
GO.ON 
OQUTCHR 


MORE 


FARM 
HEALER 
ZERCK 
F2SCR 


xSFF 
*XLINPTR+1 
XSFE 
*LINPTR 


#$F0 
X$FE 
CRLFSZ 


KSFE 
#$F 

xKS ADR 
A 


xS.ADR 


BLANK 
#$10 
xLN.CNT 


*S. ALR 


#0 
($FE)+Y 
CHKSAL 
SPACE 
OUTBYT 
INCCMF 
VER. END 
VER. NXT 
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8B 
20 
82 
9C 
85 
16 
FO 
10 
AA 
20 
82 
bo 
AS 
20 
07 
20 
85 
82 
20 
0? 
98 
86 
20 
BA 
EO 
06 
20 
7F 
47 
45 
6E 
74 


EA 108A 
10 FS*SE 
20 2E*50 
85 F2»2C 
FO 85,28 
FE 299F6 
FO AAr9R 
FO 38/05 
FE 209F3 
FA 82°03 
02 BO»é6A 
83 20700 
AS FFs9F 
3C CérFi 
A2 10750 
B2 10,/RB 
86 Fiir36 
03 E8761 
Aé Filia 
20 3Fyr2i 
10 68702 
B80 4C/5C 
OS 20723 
20 42782 
60 EOrE1 
CA D0%56 
00 BivE3 
02 A%»CO 
10 110239 
72 202AS 
6C 469sA7 


1057- 
1059- 
105A- 


105C- 
10SF- 


1062- 
1064- 
1066- 
1068- 


106A- 
106D- 
106F- 
1071- 


1073- 
1076- 
1078- 


107A- 
107D- 
1080- 
1082- 
1084- 


1086- 
1088- 
108B- 
108D- 
108F- 
1090- 


LOZ 2= 
1095- 


1096- 
1098- 
1099- 
109B- 
1LO9E- 
10A1- 


10A4- 
10A7- 
10A8- 


LOAB- 


LOAC- 
LOAF- 


10B2- 
10B5- 
10B7- 
1OBA- 
10BB-— 
10BE- 
10C1- 
10C2- 


83 
10 


B83 


83 


83 
10 


82 


83 


80 
10 


83 


10 


82 
83 


0930 
0940 
09750 
09760 
0970 
0780 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1070 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 


BCS 
VER. NXT DEX 
BNE 


JSR 
JSR 


LIA 
STA 
LIA 
STA 


BRK + CHK JSR 
BCS 
DEC 
REQ 


NXT.LIN JSR 
LIX 
BNE 


NXT. FAG JSK 
JSR 
LIA 
STA 
BNE 


VER.END STX 
VER. ENDL JSR 
CPX 
REQ 
INX 
RPL 


CHECKOUT JSR 
FHA 


LIX 
OUT.1 DEX 
BEQ 
JSR 
JSR 
JMP 


OUT.2 JSR 
FLA 
VER. OUT JSR 


VER.RTS CLC 


VER. END 
VER.LIN 


OCMCK 
ASCII.OUT 


KSFE 
xLINPTR 
XSFF 
KLINE TREL 


INSTAT 
VER.RTS 
XLN.CNT 
NXT. PAG 


CRLF SZ 
#$10 
VER.LIN 


CRLF 
HEADER 
#$10 
xLN. CNT 
NXT.LIN 


*LN. CNT 
DECCMF 
#$10 
CHECKOUT 
VER. ENDL 


OCMCK 


xLN. CNT 
OUT.2 
SFACE 
SPC2 
OUT.1 
ASCII.OUT 


CHKSUM 


sIf you wish to call this as 
ja subroutine from RAE, substitute 
tan RTS for the following two 


sinstructions. 
JSR 
JMP 


HEADER JSR 
LIX 
JSR 
NXT.»NUM TXA 
JSR 
JSR 
INX 
CPX 


USRENT 
VERIFY 


CRLF 
#5 


BLANK 


QUTBYT 
SPACE 


#$10 
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Enter 


0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
O2A0 
O2K0 
92C0 
O2n0 
O2EO 
O2FO 
6170 


ww 
10C4- [lO F4 1570 
10C6- 60 1580 
1590 
10C7- EO 00 1600 BLANK 
10C9- FO 06 1610 
1OCB- 20 42 83 1620 BLANK 
10CE- CA 1630 
10CF- DO FA 1640 
10Di- 60 1650 BLK.RTS 
14660 
1002- 20 3F 83 1670 ASCII.OUT 
1ODS- AQ 00 1680 
1OD7- Bi Fi 1670 NXT.CHR 
10D9- 29 7F 1700 
1LODR- C9 20 1710 
100D- BO 02 1720 
LODF- A? 20 1730 
1OE1- 20 47 8A 1740 IS.ASCII 
10E4- C8 1750 
10ES- CO 10 1760 
LOE7— (D0; EE 1770 
LOE9- 60 1780 
1790 
1OEA- 45 6E 74 1800 MESSAGE 
10ED- 65 72 20 
1OFO- 72 61 6E 
1OF3- 67 65 20 
10F6- 6C 69 6f 
1OF9- 69 74 73 
10FC- 3A 20 00 
1810 


Here is an 


BNE 
RTS 


CPX 
BEQ 
JSR 
DEX 
BNE 
RTS 


JSR 
LOY 
LIA 
AND 
CMF 
BCS 
LOA 
JSR 
INY 
CFY 
BNE 
RTS 


+BY 


examrele of how ASCII VER can 


NXT.NUM 


#0 
BLK.-RTS 
SFACE 


BLANK1 


SFIC2 

#0 
(LINFTR) s¥ 
#$7F 

#$20 
IS,ASCII 
#$20 
OQUTCHR 


#$10 
NXT.CHR 


‘Enter range limits! ’ 0 


helr in 


how BAS-1 stores its Frosgrams and variables. 


FIG. 1 - The LISTins —~> 


(MEM SIZE? = 768) 


FIGs 2 - The pers 


range limits? 
00 O01 02 03 04 O05 06 07 OB OF 
00 OA 02 OA 00 41 41 AC 35 00 
25 AC 35 00 23 O02 1E 00 41 41 
53 22 00 32 02 28 00 42 42 24 
22 00 4A 02 32 00 43 43 24 AC 
41 4E 44 20 22 A4 42 42 24 00 
00 00 00 C1 C1 00 OS 00 00 00 
00 42 C2 04 2C 02 00 00 43 C3 
AA AA AA AA AA AA AA AA AA AA 
AA AA AA AA AA AA AA AA AA AA 
AA AA AA AA AA AA AA AA AA AA 
AA AA AA AA AA AA AA AA AA AA 
AA AA AA AA AA AA AA 
AA AA AA AA AA AA AA AA AA AA 
AA AA AA AA AA AA AA AA AA AA 
AA AA AA AA AA AA AA AA AA AA 
4E 44 20 43 41 54 53 44 4F 47 


0A 
14 
24 
AC 
41 
00 
41 
on 
AA 
AA 
AA 
AA 
AA 
AA 
AA 
44 


33 


10 AA=5 
20 AAZ=5 
30 AAS="DOGS* 
40 BRS="CATS" 


SO CC$=AA$+" AND 


OK 


OB 
02 
Ac 
22 
41 
00 
C1 
EA 
AA 
AA 
AA 
AA 
AA 
AA 
AA 
4F 
20 


Oc OL OE OF 

41925 
475BC 
S3,»2E 
20*K0 
20736 
02 OO0OrE2 
AArCI 
AAré1 
AA, O01 
AAAI 
AAr41 
AAYEL 
AAr81 
AAr21 
41753 
: 44 20970 


analyzing 


“+ER$ 


AAYS AA 
495 # AAS, "TOG 
S* 2 ( BB$,"CATS 
" J 2 CCS$rAASS" 
AND "$KBS AA 

AA AA 

BE » Cc J x 
SOOO OK OK 
OOOO OOK KK 
FORK OK 
FOO 
OOO OOK KKK 
SOOO OK OOK 
OOOO OOK OK 
*KAKAKKKKATIOGS A 
ND CATSDOGS AND 
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ZENER DIODE PROTECTION 


The rower conmmector orn 
the older VIM-1 


the SYM-1 is notched Just the reverse of that on 
(Versatile Interface Module or Monitors we really rrefer 
that old mame!)» soy maturalls, we arrlied rower to our first SYM-1 with 
reverse Folarityy during initial checkout! After the initial Fanicy when 
we thought that both the rower surrly and the SYM were deads we realized 
that the SYM was safey but that what hed saved the SYM had killed the 
rower surprly, The 6-2 V Zener diode at CR34 Frotects from both 
avervoltase and reverse rolarity., Its failure mode is mot to oren 2 
circuit like a fuser but to short it like the old correr rennies we were 
told never to substitute for burned out fuses. My new Fower surrlies 
all have OVF (Over Voltage Frotection)»s current limiting, thermal 
cut-offs etc.» etc.» but we still think it is good insurance to install 
inexrensive 6.2 VY Zeners on all of our KTM-2’s-. A soo0d location is near 
C9» by the rower connector. A series fuse to Frotect the rower supply 
if the Zener does its Jjob right is worth adding, also, 


A FERSONAL INFORMATION MANAGEMENT SYSTEM (FIMS) 


We would like to recommend for your conmsideratiom the book from SCELBI 
Fublications, FP. 0. Kox 3133) Milfords CT 064460» bearing the above 
title (contact SCELBI, or your own book or commuter dealers NOT us!),. 


{It contains the complete listing of a BASIC rrogram to rrovide what the 
title implies. It was written im TRS-80 Microsofty but you will have to 
modify only two instructions (easy to do). You willy howevers meed to 
add a SAVE VARTABLES/LOAL VARIABLES patch. One such watch was rublished 
in an earlier issuey another is included in BBE~1 and BRE-2, and still 
another is Fublished in this issue, 


To lead im machine landsuades ratches easily from BASIC, dump them from 
MON’s .S2 with an ID for which you know the ASCII eauivalents @.dsr a 
MON tare dume with ID =41 cam be read from BAS with a LOAD Ay etc. Ke 
sure to leave memory! 

The rrogramy while mot the ultimate, can easily be customized, and 
extended to fit vour needs} we added a disk ratch to our versions and 


"cosmetic" changes, Sreaking of 
this issue, one of our corresrondents 
actually FPIMS by an alias» 
Radio software exchange net! 


made a number of convenience and 
"theft", a5 we were elsewhere in 
sent us a cory of FIIMS (the [I is for Data)» 
which he eicked ur on an international Ham 
MONITOR/CASSETTE INTERFERENCE PROBLEMS? 
Jack Krowns who has longs used @ dual cassette systemr 
other for writers both SYM controlled, rerorted an interesting 
the other das. He reversed the roles of the two recordersy and had 
read/write rroblems for the first time. One of the recorders is much 
closer to the video monitorys and he conJectures that the masdnetic fields 
produced by the transformer and/or yokes in the monitor could have been 
the source of the problem. After this issue has gone to rressy we will 
test out a SYM sustemy far from our library of disks and teres, hy 
wavind 2 bulk tare eraser near a recorder, first while recording a long 
synch sidmaly then while reading samey meanwhile watching the sigdnmal on 
a score. Will rerort results mext issue-+ 

HOW WE PREPARE FOR FUBLISHING 


one for ready, the 
Frohlem 


The camere-ready cory for SYM-FHYSIS is Frerared on a 24K SYM/FODS 
systems and printed on a decwriter II. The entire cory for a 40 Fase 
issue fits on a little more than e single 5 1/4 inch diskette. For your 
informationy we rrint tre disk directory for that rart of the current 
issue which is ready as of this date. 

The “!" indicates a RAE files the ".* a BASIC files the °&" a hex filey 
ete. Each system (tiny-cy FORTH: FOCAL: etc.) generates its own file 
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identifying characters or what is more commonly referred to as its 
extension. FONIS Fermits only single symbol extensions and five 
character file mames, The latter limitation is FODS’ only maJor 


weakness for short-memoried reorle such as ourselves. Weeks latery or 
even only hours latery we find that we have forgotten what the cryurtic 
mnemonic file names mean! 


nC DIR 2 Contents of SYM-FHYSIS Issue No. 7 
O1 ?LoGo 0200 0486 O1 O1 02 {MAST 0200 0857 01 07 
O3 tEDIT 0200 0740 02 04 04 {HELP 0200 O9B8 O02 15 


OS +SUFF 0200 07C4 03 15 06 {THEFT 0200 OFC3 04 11 
O7 3BELL 0200 O57 06 07 O8 tBASIO 0200 0844 07 14 


O9 {FIX 0200 O44F 08 11 10 $RAEUS 0200 0418 O08 16 
if SFLEX 0200 O48B 09 0S 2 :DISK 0200 OF6E 09 11 
13 {INDEX 0200 0410 11 06 14 {SOFT 0200 1143 11 11 


15 3KCS 0200 OACO 13 10 16 +NEWL 0200 OBFE 14 12 
17 ¢NEW2 0200 1594 15 16 18 ¢SaL. 0200 082A 18 08 
19 {SAVE 0200 ORE9 19 0S 20 {DETEC 0200 1146 20 09 


2i ¢FOD1 0200 0C70 22 08 22 3FOD2 0200 OASE 23 13 
23 $VER2 0200 0406 24 14 24 $VERI 0200 OBF9 25 04 
25 &VER 1000 10FE 26 08 26 {VERS 0200 030C 26 10 
27 VER 0201 024C 26 13 28 {ZENER 0200 0650 24 14 
29 3CASS 0200 OS52 27 07 30 3FIMS 0200 0769 27 14 
31° }NUMS 0200 0362 28 09 32 :WISNI 0200 OEDA 28 12 
33 = $TECO 0200 03C4 30 06 34 .WISNI 0201 ODZA 30 10 
35 tSYM69 0200 OBEO 32 O1 36 3PUBLI 0200 OS8I 33 05 


37 $PUB 0200 0645 33 13 


NEXT? T34 S046 
AN ALTERNATE BASIC INFUT TECHNIQUE 


One of BASIC’s basic (!) failings is its often frustrating behaviour 
when the wrong kinds and/or numbers of data inruts is entered. If the 
“er> is the first key enteredry BAS-1 is not vers forgiving’ no 
oprortunits for correcting this ‘“boo-hoo" is Frrovided. This is 
especially unfortunate when young children are beings taught to use SYM. 


Jeff Wisniay of Burlingstons MA 01803» sent in @ Partial solution, which 
did prevent the rrosram “abort* in the event of an initial carriage 
returny out did mot rermit character or line correction. We Publish 
essentially his rrodgram below, but with our comments and error 
correction (out only before the «cr>!) features added. We included the 
CONT X» CONT Hy and DEL as well as the the "@" and the "#" used by 
BAS-1» since these are frequently used im other BASICs. If vou do wish 
to abort, use the BREAK kes. You might also wish to add a CONT C exit» 
since this is used to cause an abort in many BASIC systems. 


Since some users might try to use the ESC key to abort, this should 
also be allowed for. Don’t forget to send out at least one ‘“null" to 
the KTM-2/80» because the mext character sent after an ESC is not 
erpinted., This caused us lots of worry in trying to get TECO ur om our 
systems TECO uses ESC for control furrosesy and is Frosgrammed to echo 
a "$" in its place. Not having the "$" show up was disconcerting, and 
it was a tidht seueeze to get in the five bytes necessary to echo both 
@null and the "$". TECO was orisinally desisned for I/0 devices which 
ignored ESC. While vou are Polishing ur the following FProsramy you 
might wish to have CONT H echo a SFACE ($20) and another CONT H (#08) 
to clean ur the screen as you correct your errors. Alsoy the "DEL" or 
"TNELETE" key ($7F) should echo a "\" as is customary in many systems, 
A more elaborate echo scheme is the following! With the first "DEL" 
echo the "\" and the deleted character, With following ‘“DEL"s echo 
only the deleted character. With the first rerlacement characters echo 
the “\" firsts and then the mew character. 
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This form of inrut is particularly useful in certain arrlicationss 
where the data stream may include commas and auotesy since strings 
containing commas need not be delimited by auotesr and euotes do 
confuse BASIC. For examrley BAS-1 will accert H. R. "Lux" Luxenbers as 
a string but not "Lux" Luxenbers. In other words: leading auotes are 


not 


Now 
you 
cen 
use 


Part 


accerted, but embedded auotes are, 


that you know how to enter commas easily as part of strings» when 
get around to implement "FIMS" (see elsewhere in this issue)» vou 
enter a CITY» STATE ZIF item as a single stringy with commay and 
the comma as a delimiter to indicate the start of the STATE ZIF 

of the item for SORT rurrosesy while still Permitting the item to 


be rrinted on a sinsle line. 


A good rrogrammers whose rrograms are intended to be used by novices» 
should make every effort to “idiot-rroof" his Frograms, i-+e., he should 
anticirate errors in inrut rrotocoly and suard asainst them, Jack. 
Gieryic’s newest programs are beautifully human-factored im this 
resrecty and are well worth studying for this feature alone, 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


REM WISNIA/LUX ALMOST “TNIOT-FPROOF* BASIC INFUT SUBROUTINE 

! 

REM THE ONLY WAY TO GET OUT OF THIS FROGRAM SHORT OF 

REM RESET, OR POWER DOWN»: OR OTHER DRASTIC MEASURES 

REM IS WITH THE BREAK KEY. 

PRINT "Enter any string of letters» mumbersy or SYMDOLSs+ereves "F 
REM Now so where the action is!!!!! 


: 
GOSUB 580 


. 


REM Your string may contain lower casey commasyr auotess 
REM line feeds, etce, in fact any character excert the 
REM special ones tested for below, 

REM ACTUALLY» THERE IS ANOTHER WAY TO GET OUT OF THIS 
REM WITHOUT USING THE BREAK KEY? THE PROGRAM WILL. 

REM HALT ITSELF WITH A BRK AFTER EITHER THE MAXIMUM 
REM STRING SIZE LIMIT (255 BYTES) IS EXCEEDED OR THE 
REM "GARBAGE" GENERATED BY THE STRING CONCATENATIONS 
REM CAUSES YOU TO RUN OUT OF MEMORY. 

REM IT MIGHT BE WORTHWHILE TO ADI BOTH A CONTROL C 

REM AND AN ESCAPE EXIT. 

PRINTSERINTSF RINT "The string you entered wast * AS 


REM Your string may be @ eure mumeric and you 
REM can check the number against range limits 
REM before accerting ity if desired. 

A=VAL (AS) 

PRINT "The numeric value of your strins wast" A 

REM Continue till vou are convinced it works» or 
REM till you set tired. Exit (to BASIC) with BREAK. 
+ 

FRINT?GOTO 180 

REM Here is the main show. Above is only @ 

REM simrle test rrosram. 
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B50 3 


560 REM Start out with an empty string. 
570 3 
580 AS="" 
590 3 
600 REM Then go set the characters to fill your string! 
610 REM ~30120 is $8A58» INTCHRy which accerts lower cases and 
620 REM bypasses INVECy so that this program will work even 
630 REM with a Terminal Control Fatch to KASIC. Don’t use 
640 REM INCHR here! 
650 ¢ 
660 REM The ones’ complement of the “sotten" character is "saved" 
670 REM by INTCHR to $00F9 (examine the MON listing). Because of 
680 REM a KAS-1 busy the value returned in X is gibberish. 
690 REM Anyways do as MON does, AND #$7F to clear the rarity bit. 
700 3 . 
710 X=USR(-3012070) $Y=127 AND NOT FPEEK(249) 
20 3 
730 REM First: of courses make sure each character is not 
740 REM one requiring "Ssrecial" handlindsrseeee 
730 $ 
760 REM Check for <cr*, but NOT as the first element. 
770 3 
780 IF Y=13 AND LEN(A$)<>0 THEN RETURN 
790 3 
800 REM Don’t accert an initial “er>, 
810 3 
820 IF Y=13 THEN GOTO 1020 
830 ¢ 
840 REM Cheek for ’"H’: “<="s or “DELETE’ 
850 ¢ 
860 IF Y=8 OR Y=95S OR Y=127 THEN GOTO 980 
870 3 
880 REM Check for ’°X’ or ‘at symbol’ (cannot print it here!) 
890 3 
900 IF Y=24 OR Y=64 THEN GOTO 1020 
910) 3 
920 REM The character should be accerted 
930 3% 
940 AS=AS+CHRE(Y)?GOTO 710 
950 3 
960 REM Delete the last character accerted 
970 3 
980 IF LEN(A$)<20 THEN A$=LEFT$(A$yLEN(A$)-1)2GOTO 710 
990 3 
1000 REM In case of an empty string, come hereserss 
1010 $ 
1020 PRINT?PRINT * Try asain! ":GOT0180 


THE SYM-1/68 AND SYM-1/769 

Sunertek Systems Corroration recently announced the arrival of two new 
members of the SYM-1 family, Oner the SYM-1/68, is 6800 basedi the 
second, the SYM-1/69 is 6809 based. Also available, are conversion kits 
for our existing SYM-1s. The kits include the microprocessor chiry an 
adaptor socket» and a mew monitor chir. We understand the versatility 
of SUPERMON was retained im the new monitors, 


While the 6800 leaves us cold, because we prefer the 6502’s Y-Resgister 
to the 6800’s K-Redister» the 6809 is another story. Forset the added 
speed of its 16 bit multiplications its real rower is in the FAIR of 164 
bit index resistersy and the FAIR of 16 bit stack rointers (one for the 
sustemy the other for the user). There is also an 8 bit Direct Fase 
Redisterry so that instead of being limited to the srecial Zero Fase 


addressing modesy ANY pase may be selected for the srecial addressins 
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modes, If it is mot obvious (and it rea 


lly shouldn’t bel)» let us Point 


out that these added features of the 6809 rermit the writing of rosition 


inderendent code. If you have forgotten 
rearrange subroutines, Just use the 
reassembley or use 2a relocating loader o 
there! What @ “well-stacked" system! 


Qne of the best reviews we have seen on 


2a few lines of coder or want to 


Rlock Move (.B)% mo need to 


r rrogram. What a lot of Fowers 


the 6809 is im the Marchy 1981 


issue of BYTE (both this and the February issue are worthwhile reading 


for SY¥Mmers), in the article “What’s in 


Radio Shack’s Color Comruter?* 


(Yessy that’s correct!)» by Arenss Browners and Scales. The article slsa 
covers the carabilities of the MC46847 (Color) Video UTlisrlay Generators 


as used in the SYM ColorMates by Turrin. 


A really strong argument for the 6809 (which surrorts 6800 code) is that 
the 6800 family is compatible with the FLEX DOS, and there is a lot of 
sreat software available out there. FLEX is to the 6800 world what CP/M 


is to the 80xx/Z80 universey and wheat 
Community» 


The SYM-1/69 willy of course, be need 


does mot exist for the 6502 


ing the equivalent of a RAE-1/69 


Cand, less imrortantly, a BAS-1/69) to comelete the system, if we are to 


use it to its fullest carabilities.+ We 


will be evaluating the SYM-1/69 


during the next auartery and rerort in Issue No. 8. 


If, after vou evaluate the 6809 features 


y you are interested, contact 


$sC for additional technical information, and the SUG for Frices end 


delivery information, 


THREE STATISTICAL BASIC PROGRAMS 


Prof. Hush E. Criswelly Fsychologs Derartment, East Tennessee State 
Universiyy Johnson Citys TN 37614» whose BASIC Date Save and Load 


Frogram errears elsewhere in this issue 
Programs. We Publish them as received. 


y sent us the following note and 
Incidentally, seversl former 


Psychology Instructors are now teaching courses im Comruter Science et 


California States Chicory as a result of 
micross 


a i you want to set 
interested in microcomruters 


having gotten “turned-on*® by 


some Fsycholosists 


» show them these 


three Analysis of Variance Frograms. They ere 
used a lot im the behavioural sciences? 


Frobably not in PFhysics, 
commented, but someone 


Sorry they eren’t 
exrerienced in 


statistics should have no trouble using them. * 


REM THIS IS A ONE WAY ANALYSIS OF VARTANCE ALSO CALLED A 


1 
2 REM SIMPLE RANDOMIZED ANOVA. IT RUNS 


5 L=OfM=0 
10 DIM B(6)sC(12) 906) 9E C12) 140 
20 T=0:TS=0 150 
30 INFUT*# OF TESTS?*#NTIPRINT NT 160 
40 INFUT'# OF SS"#NSIPRINTNS 170 
45 PRINT'ENTER DATA BY SURJECTS" 180 
50 FOR I=1TONS 190 
60 FOR J=1TONT 200 
70 PRINT I3J3 210 
80 INFUT LIPRINT L 211 
90 ECJ=BC J) 4L 212 
100 C(D)=C(D)+L 213 
110 TK J=00I)4(LKL) ale 
120 E(I)=E(1)4+¢(L*L)D 220 
130 T=THL 240 


IN 4K. 


TS=TS+(L&*L) 

NEXT J 

NEXT I 

FOR I=1TONT 
PRINT'MEAN'S 19 °="¢ RCI) /NS 
NEXT I 

FOR I=1TONT 
U=(BC LT) RCL) )/NS 
V=(DCT)-U)/(NS-1) 
V=SQR(V) 

V=V/SQKR (NS) 
FPRINT*SEM"s 15 "="5V 
NEXT I 

T=( TAT) /CNSENT) 
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250 TS=TS-T 

255 L=0 

260 FOR I=1TONT 

270 L=L+(B( LT) xkER(T)) 

280 NEXT I 

290 L=(L/NS)-T 

300 FOR I=1TONS 

310 M=M+(CCI)KC(I)) 

320 NEXT I 

330 M=(M/NT)-T 

340 N=TS-L 

350 FRINT'SS(TOT)="sTSi"SS(TRI="sh 5 *SS(SS)="sMe"SSCERD="9N 
360 O=NSKNT~1 

370 P=NT~1 

380 O=0-F 

390 PRINT'DF(TR)="5Ps "DFCER)="50 
400 L=L/P 

410 N=N/O 

420 PRINT"'MS(TR)="oLy "MSCER)="9N 
430 PRINTF CSF 3" y "$09" ="FL/N 
440 R=SQR¢(2*N) /NS) 

450 PRINT "CRITICAL DIFFERENCE="sRs*TIMES T(*#05")" 


1 REM THIS IS A CORRELATED ONE WAY ANOVA OR TREATMENT BY 
2 REM SUBJECTS DESIGN. IT ALSO SHOULD RUN IN 4K. 

3 L=O3M=0 

10 DIM BCS) 9C(12) 905) sE (12) 

20 T=03TS=0 

30 INPUT"# OF TESTS?*¢NTZPRINT NT 

40 INFUT*# OF SS"SNS?PRINTNS 


50 FOR I=1TONS 211 V=(D(I)-U)/(NS~-1) 
60 FOR J=1TONT 212 V=SQR(V) 
70 PRINT Ise Je 213 V=V¥/SQR(NS) 
80 INPUT L3PRINT L 215 PRINT'SEM# 15 "="5V 
90 BC JO=BC JOEL 220 NEXT I 
100 C(I)=CC(I) +L 240 T=(TXT)/(NSXNT) 
110 DC J=DC S40 KL) 250 TS=TS-T 
120 ECI)=ECI)+¢L#L) 255 L=0 
130 T=TtL 260 FOR I=1TONT 
140 TS=TS+(L¥L) 270 L=L+(B(1)*B(I)) 
150 NEXT J 280 NEXT I 
160 NEXT I 290 L=(L/NS)-T 
170 FOR IT=1TONT 300 FOR I=1TONS 
180 PRINT"MEAN* SITs "="$BCI)/NS 310 M=M+(CCI)KC(I)) 
190 NEXT I 320 NEXT I 
200 FOR I=1TONT 330 M=(M/NT)~T 
210 U=(B(T)*B(T))/NS 340 N=TS-L~-M 
. 


350 PRINT"SS(TOT)="TS# "SSC(TRI="5L5"SSCSS)="FMF"SSCER)="9N 

360 O=NSXNT-1 

370 P=NT-1 

380 O=0-P-(NS~-1) 

390 PRINT“ DOF CTR) ="5 Po "DF CER) ="90 

400 L=L/P 

410 N=N/O0 

420 FPRINT"MS(TR)="5Ly"MSCER)="9N 

430 PRINTSFC"9F 5 "x "505 ")="9L/N 

440 R=SQR((2*N)/NS) 

450 PRINT “CRITICAL DIFFERENCE="$Rs "TIMES T(*#05")* 
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ik 


2 REM I ADDED SOME PRINT STATEMENTS TO MAKE IT EASIER TO USE SO 


3 R 


EM THIS IS A TWO WAY OR A X B ANOVA. IT USED TO RUN IN 4K BUT 


EM IT MIGHT TAKE MORE SPACE. 
DIM X(58)»XS(578) 

T=O2TS=0 

PRINT *# OF COLUMNS" 

INFUT NR 

PRINT*# OF ROWS" 

INPUT NC 

PRINT*# OF SS/CELL* 

INPUT NS 

PRINT*"ENTER DATA BY ROWS~--)* 


FOR J=1TONR 

FOR K=1TONC 

FOR If=1TONS 

PRINT*ENTER SC'S15") ROW (*#K5") COLL. (*#J5")" 
INFUT WN 

XC Je K=XCIe REN 

XSC IK) =XS (Je K) +NKN 

T=T+N 

TS=TS+NXN 

PRINT*X(*9 Te "9 "FSS "oe "FRE =H"GN 

NEXT I 

NEXT K 

NEXT J 

PRINT*IF YOU WANT HARD COPY TYPE Y OTHERWISE TYFE N* 
INFUT TW 

IF TW$<>"Y"GOTO210 
TW=USR(&"1 CFL" » &"0000") 

FOR J=1TONR 

FOR K=1TONC 

M=X(JeK)/NS 

V=(CXS Cdr KR) — CCX C Se RI KX C Se) /ZNS) DZ (NG—1)) 
SE=SQR(V) 


ME=SE/(SQR(NS)) 

FRINT"MEANC* Jo "s "shy ")="5 M9 “SEM=" ME 

NEXT K 

NEXT J 

C=(TKT)/(NRKNCKNS ) 54640 SI=(TS/NS)-C-SC-SR 

ST=TS-C 561 SE=ST-(SI+SR+SC) 

T=03TS=0 565 PRINT*SS(TOT)="5ST 

FOR K=1TONC 570 PRINT*SS(ROWS="sSR 

FOR J=1TONR 580 PRINT*SS(COLL)="s5SC 

T=T+XC Ir K) 590 PRINT“SS(RXC)="5SI 

NEXT J 600 PRINT"SS(ERROR) ="5SE 

TS=TS+( TXT) 610 DE=(NSXNCXNR) -1 

T=0 620 DR=NR-1 

NEXT K 630 DC=NC-1 

SC=(TS/(NSKNR) )-C 640 DI=DRKDC 

T=03TS=0 650 DE=DE-(UR+DC+DI) 

FOR J=1TONR 670 SR=SR/0RK 

FOR K=1TO AC 680 SC=SC/IIC 

T=T+X(JeK) 690 SI=SI/01 

NEXT K 700 SE=SE/UE 

TS=TS+ (TXT) 701 FRINT 

T=0 710 PRINT'MS(R)="9SRy SDF="50R 

NEXT J 720 PRINT'MS(C)="sSCy "DF="50C 
SR=(TS/(NSKNC) )-C 725 PRINT*MS(RXC)="9S09"DF="s00 

TS=0 730 PRINT“MSCERR)="sSE9"DF="s TE 

FOR J=1TONR 731 PRINT : 

FOR K=1TONC 740 PRINTF CROW) ="3SR/SEs “DF="s DR" * pDe 
TS=TS4+(X (Jy RI KX(JeK)) 750 PRINT"FC(COL)="$SC/SE» "DF= "9005 "9 "DE 
NEXT K 760 PRINT "FCRXO)="$SI/SEx"DF="s0l9 "9" sDE 


NEXT J 770 TW=USR(&*1EC7“,&"0000") 
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MORE FROM JACK GIERYIC 

As has become his customs Jack sent im almost enough material to fill ea 
complete issuer and we had to rick and chose the one article below as 
beins of most deneral interest. Firsts let us comment on one maJor 
change we have observed in Jack’s rrosgramming styley and then describe 
the Frograms we didn’t have room for. 


In some of Jack’s earlier rrograms the beauty of his grarhics and the 
continuity of his sames could be destroyed if the user entered the 
wrons mumber and/or tyre of inrutss 3a mumerical entry which exceeded 
the allowable range» or a too hasty carriase returns All of us have 
had troubles with this, we’re surer and an article elsewhere in this 
issue shows one way to solve this Froblem, 


Jack’s newest rrograms are now nearly uncrashables the "nearly" merely 
means we did our very best to crash thems and failed. It might reauire 
what the French call an “‘idiot-savant" to find 3 way. So nowr the only 
way we can make am error is by actually entering incorrect values» 
based on our own wrons decisions, The only way ground that is to let 
the computer do all of our thinking for us. But thens there would be 
no games for us to Play! 
>>>KTM~2 CHARACTER GENERATOR PROGRAMMER<<< 

The character generator ROM(s) in the KTM-2 and KTM-2/80 (all are 
identical) are directly rerlaceable with 2716s. Jack has written 2 
companion Frogram to so with his earlier EFROM Burner Program which 
rermits customizing the character set to your needs. We wish we could 
show sour, in Prints the erreerance of the disrlay screen during the 
Process. The user can gdisrlay any existins characters urrer or lower 
casey alrehanumeric or grarhicy ory direct or reverse, The character 
arrears on the screen in 2 larse formats and 2a cursor cam be moved 
aroundys only within the bounds of the display, with the Ur [ty Ly and R 
keys. Pixels can be turned on with N and off with F. 


When you are through with your design the data may be immediately 
EFROMmed,s or tared for rerley at @ more convenient time. We have never 
seen 232 better “human-factored* Frograms and this is the very first 
Prodram we have ever seen which we didn’t feel we could improve! 


Qur use of this rrosgram to date has been minimals since we have mot yet 
had the time to design the ‘ideal* grarhics set. We didrs however 
modify the cursed blinking cursor from that annoying 8x8 rectangle to 2 
modest single dot in the lowest row of the character matrix. This 
creates less of @ disturbing arrearance in @ srarPhics disrlay. We did 
this for two of our terminals. Jean didn’t like the rectangle because 
it was too bidy and didn’t like the doty eitherrs because it was too 
small! She now has her own terminal with an “underline” for the cursor. 
Looks great! 


One of our students has replaced the grarphcs symbols with the Farsi 
(Persian) alphabet. Like Arabicr Hebrews and other mid-east lansuasesy 
Farsi is written from right to lefty and it is very intriguing to watch 
his Frrosrams ask for (mumeric) inruts in Farsi. Arabic numerals, even 
in the mid-east are still written left to right, so mo rroblemy there, 
He hes mot vet written eny rrosrems asking for Farsi input strings! 
>>2HIGH RES LASER GUN<<< 
This 1K machine lansuaese Frrosgram rFrresents the user with 6 targets 
traveling across the disrley created by MTU’s 8K Visible Memoryr and 2 
moveable ‘“laser" gum. Gum rositioning and fire control is via the hex 
Kesrad on the SYM, or 2& suprlementary key rads whose design Jack 
describes, Sound effects are provided by General Instruments’ 
Programmable Sound Generator (see below), This is 2a fascinating 
Programs instructive in thet it shows how the “arcade" tyre games may 
be rrosgrammed, but it does reauire the MTU board for its use, 
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SOOO OCOOOOOOOOKKOK 
x x 
* AY-3-8910/8912 DEMONSTRATOR * 


* x 
FORO OO OOOO OOK KK KOK 


This rackase provides 2 simrle means of exercising the functions 

on General Instrument’s AY-3-8910/8912 Programmable Sound Generator. 
This will provide the user with a better understanding of the PSG’s 
funetions and carabilities, 


Hardware reauirements! 6K Memory 
BASIC 
Kesboard terminal with at least 40 characters 
rer line and at least 24 lines 
AY-3-8912 wired rer Table 1 


This rackase interfaces the FSG by means of the two rorts on the 
Application (A) connector although the FSG could be memory marred. It 
is also assumed the user has 2 cory of the FSG’s data manuel and is 
thoroughly familiar with its contents. This package only rrovides easy 
hands-on exrerience with the PSG. It is assumed the user understands 
the PSG’s register orsanization. 


The FSG reauires @ minimal amount of hardware. It is desidned to 
orerate under comruter software comtrolys thereby rrovidings a high degree 
of versatility without the need to reconfigure eny hardware connected 

to the FSG. This means a single FSG can rrovide a wide range of sound 
effects and tones for any number of rrosrams as each frogram has its 

own software to drive the FSG. 


PROGRAM OPERATION: Los om to BASIC with at least 6144 bytes free, 
Enter the command RUN. The rrogram asks the user if this is being run 
on @ KTM-2/80 keyboard. A Y or N resronse is sufficient. Do mot hit 
the RETURN key. If Y is entered then the rrogram automatically uses 
cursor Fositionins and other KTM-2/80 features to rrovide a disrlay 
similar to Figure 1. If N is enteredy the rrogram will pause for a 
second or two and then rrovide a display rer Fisure 2. 


The NEXT OPERATION NUMBER can be any of the following? 
ly 2 or 3 - This mumber rerresents the selected channel. 
This will rermit chanse to one of the functions 
(Freauencys Toner Noise or Amplitude) of the 
selected channel. 

- Permits change to the NOISE FERIOL 

- Fermits chanse to the ENVELOPE SHAPE/CYCLE 

- Permits change to the ENVELOPE PERIOD 

- Frogram termination 

Wo not hit the RETURN key. 


If ly 2 or 3 is selected then the rrogram rromets the user for an 
ITEM SELECTION. The four rermitted resronses earet 

F ~ Fermits a freauency change on the selected channel, 

The Frosgram rrompts the user for @ coarse value (0 to 15) 
and then @ fine value (0 to 255). Hit the RETURN kew 
after each value. 

N - Fermits moise to be added to the selected channel’s tone, 
The Program Frompts the user for a Y or Ne Do mot hit 
the RETURN kes-e 

T - Fermits the selected channel’s tone to be turned on(Y) or 
off (N). Do not hit the RETURN key. 

A - Fermits @ chanse of the selected channel’s amplitude, A 
value of 0 to 16 is Fermitted. Hit the RETURN key after 
the value is entered. Note 2 value of 16 will turn the 
amPlitude control over to the selected envelore share/ 
escle. This value(16) sets the M bit in the selected 
channel’s amplitude resister, SYM-FHYSIS 7234 


aaus 


CeCe HE EEE HHO HEE HEHEHE EO HHH EEH EHO EEEO OOOOH OHHH E FONDS If 6 is selected the rrogram rromrts the user for a new ENVELOPE 
k . PERION. The program frromets the user for 2@ coarse value (0 thru 255) 


ADD 2048 TO ALL VIA ADDRESSES IN THE PROGRAM LISTING 


ROO R10 R20 RO 
SHOULD YOU MAKE THIS CHANGE 


R40 RS 0 R&S 0 R7 63 
R8 O RPO R100 RI1 O 


Ri2 0 R13 0 R140 R15 0 THE DATA LINES ARE CONNECTED TO THE A~-FORT 


THE CONTROL LINES ARE CONNECTED TO THE B-PORT 
BC1 IS DRIVEN BY PEO 
BC2 IS HELD LOW 
BDIR IS DRIVEN BY PRL 
A8 IS DRIVEN BY PR2 
NOT A9 IS HELD LOW 
EF=271S=1163 71213 72=2!73=41N1=8tN2=162N3=322G0T0100 


NEXT OPERATION NUMBER 


5 CH. # CH. 2 CH. -s XK RO: ° : and then a fine value (0 thru 255). Hit the RETURN key after 
’ Xx KG (0) ° entering each value, 
+ FREQ (COARSE) x RZ [0 A 
‘ (FINE) XY KS (0) 4 After each oreration is completed the CRT will disrlay the new FSG 
° X R4 0) . status rer Figure 1 or 2 and asain rromrt the user for the 
+ NOISE X RS 0 ‘ NEXT OPERATION NUMBER. 
+ TONE X R6 O ° 
+ AMPLITUDE x RZ 63 ‘i 
’ X RB O ° ITEM 8912 8910 APPLICATION (A) 
3 % RD 0 A FIN FIN FIN 
+ 4 NOISE PERIOD X R10 0 ‘ Sissons a Seals AGA BE GO OU OOOO OOROOG 
+ 5S ENVELOPE SHAPE/CYCLE % fe di 0 ° GROUNL! 6 i 1 (AA- 1) 
. 6 ENVELOPE FERIOL (COARSE) Xx R22 0 ’ +5 3 40 A (AA- Ad 
’ (FINE) X Riz 0 . LAO 28 37 14 (AA- DD) 
. X R14 0 ‘ iad 27 36 4 (AA- 3) 
° Xx R25 50 A Ta2 26 35 3 (AA- C) 
+ XXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXKXK KX KX KXKXXKXXKXXXXXKXXKXXXKX DAS 25 34 2 (AA-12) 
+ NEXT OPERATION NUMBER 7 DA4 24 33 5 (AA- ND 
’ DAS 23 32 6 (AA-11) 
’ “ LAS 22 31 7 (AA- M) 
HEHEHE HHHHHEHHE HEHEHE HEH HHH HEH HEHEHE HEHEHE HEH HH HEH HEHH OHHH HH EHO DAZ 21 30 8 (AA~10) 
BC1 20 29 9 (AA- L) 
Figure 1 - KTM-2/80 DISPLAY BC2 19 28 1 (AA- 1) 
BIR i8 27 10 (AA- 9) 
A8 17 25 11 (AA- K) 
POH HEHEHE HEHEHE HEHEHE FHHEHHEHHEHEHE HEHEHE HEH HEEHH HEE H EHO OE NOT A? 24 1 (AA- 1) 
’ CLOCK 15 22 FIG. 15 DATA MANUAL 
; CHa ot CH. 2 CH. 3 r CH. 1 5 4 FIG. 16 [IATA MANUAL. 
° F CHe 2 4 3 FIG. 16 DATA MANUAL 
+ FREQ (COARSE) ° ° ty ‘ CH. 3 1 38 FIG. 16 DATA MANUAL 
; (FINE) 0 ts) ° . 
. . 
+ NOISE NO NO NO ; TABLE 1 - WIRE LIST (ALL "AA~ * ANNOTATIONS ADDED BY LUX) 
+ TONE NO NO NO . 
+ AMPLITUDE 0 0) ty) H FOR YOUR CONVENIENCE, SHOULI) YOU WISH TO USE VIA #2 ON THE 
: ‘ AA CONNECTORy INSTEAD OF VIA #1 ON THE A CONNECTOR? THE 
+ 4 NOISE PERION tv) ie PROPER FIN NUMBERS HAVE BEEN ADDED ABOVE IN FARENTHESES,. 
+ S&S ENVELOPE SHAFE/CYCLE 0 ° 
. 6 ENVELOPE PERIOD (COARSE) 0 ‘ VIA #1 ADDRESSES BEGIN AT 409760(-245764) 
. (FINE) 0 3 VIA #2 ADDRESSES BEGIN AT 43008(-22528) 
$ . 
‘ . 
¢ . 
* . 
¢ ri 
¢ * 


2 ‘ 


HOOT HHOHHEHEH HEHEHE HEHEHE HEH HEHEHE HEE HEHEHE HOHE HEE HHH HEH OE HOD 


Fidsure 2 - GENERAL DISPLAY 1 

2 PRINTCHRS$(E)+"%="s $RETURN 

3 PRINTCHRS$(E)+*°R"s $RETURN 
If 4 is selected the rrosgram rromets the user for a mew NOISE PERIOD. 4 PRINTCHRS$(E)+°G"s $RETURN 
Values from 0 thru 31 are rermitted. Hit the RETURN key after the 5 PRINTCHR$(£)+CHR$(114) 5S RETURN 
selected value is entered. & PRINTCHR$ (E)+CHR$(103) 5 RETURN 

7 POKE42579 7 0 GOSUBRB POKE4 25799128! RETURN 
If 5 is selected the rrosram rromrts the user for a new ENVELOPE 8 Q=USR(-301209-1195770) $CH=128-(Q/(-256) ) RETURN 
SHAPE/CYCLE. Values from O thru 15 are rermitted. Hit the RETURN key 20 IFK$="Y" THENGOSUB2$ PRINTCHR$(REt32)+°Y"7DT3* g 
after the selected value is entered. Refer to the FSG Data Manual Ze POKEAL RE POKEAOs 7SPOKEAOs Of POKEAL s DT POKEAOy 63 POKEAOs0 
for the various envelore shares, 24 RC(RE)=DT? RETURN 
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61 
62 
63 
64 
65 
70 
90 
100 
101 
102 
103 
104 
105 
110 
112 
120 
122 
123 
124 
125 
126 
130 
200 
202 
204 
206 
208 
211 
212 
213 
220 
230 
300 
301 
305 
320 
325 
340 
350 
400 
401 
405 
420 
425 
440 
450 
500 
504 
502 
505 
520 
525 
540 
542 
545 
550 
560 
570 
590 
594 
600 
610 


GOSUB7? IFCH=13THENRETURN 

IFCH<48THEN61 

IFCH>S7THEN61 

PRINTCHR$(CH) $$ D7=LT*10+CH-483 IFDT>WTHENRETURN 

GOTO61 

RE=7 3 DT=T1+T2+T3+Ni+N2+N3 i GOSUB20 i RETURN 
PRINTCHRS$(E)+"K" § $RETURN 

GOSUB600 

PRINT'IS THIS A KTM~2/807 "#!GOSUBB!K$="N*? IFCH=89THENKS=" Y* 
A0=409603A1=40961 3 POKE 4096297 i POKE409639 255 

IFK$="Y" THENGOSUB7000 

DIMR(16) $FORA=1T016:R(A-1)=03 RE=A-1 $DT=03 GOSUB20¢ NEXT 

RE=7 3 DT=63;GOSUB20 

IFK$<>"Y" THENGOSUB6000 

IFK$="Y"THENGOSUB2{PRINT*1 “#3 PRINTCHRS(E)+"J"s SFORA=1TO9 3 NEXT 
PRINT"NEXT OPERATION NUMBER ‘¢$ IFK$="Y * THENGOSUB90O 

GOSUB7i IFCH“49THEN1 22 

IFCH=84THENEND 

IFCH?S4THEN122 

PRINTCHR$(CH) ¢ 

A=CH-483 FOKE25» 03 ONAGOSUB200» 2002 200% 3007 4007500 

GOTO110 

CL=AtPRINT* CHANNEL*SA 

IFK$<>"Y"THEN206 

GOSUB2:FRINT*2 "5 

PRINT‘ITEM SELECTION - "3 

GOSUB7? IFCH=84THENGOSUB1000: RETURN 
IFCH=70THENGOSUB3000: RETURN 

IFCH=6S5THENGOSUB2000: RETURN 

IFCH=78THENGOSUB4000: RETURN 

IFK$<>"Y" THEN208 

GOSUB2:FRINT*21*+ $GOTO208 

IFK$<>"Y"THENPRINT"* 

PRINT’ NOISE FERIOL - NEW VALUE = *3 

W=31:GOSUR60: IFDT<32THEN340 

IFK$<>"Y"THEN300 

GOSUB2!F RINT ‘1S"# $GOSUB903POKE2510:GOTO305 

RE=6!GOSUB203 IFK$="Y"*THENGOSUB2SFRINT*+¢"5DT5"* * 

RETURN 

IFK$<>"Y* THENFRINT** 

PRINT* ENVELOPE SHAFE/CYCLE - NEW VALUE = "+ 

W=15!GOSUB460! IFDT<16THEN440 

IFK$<>"Y" THEN400 

GOSUR2!FRINT*10£° + }GOSUB903FOKE25*0;GOT0405 

RE=13!GOSUB20: IFK$="Y"THENGOSUB2i{PRINT"s¢"7DT#* * 

RETURN 

IFK$<>"Y"THENFRINT" * 

PRINT* ENVELOPE PERIOD (COARSE) 
PRINT* NEW VALUE = "$i POKE2570 
W=255:GOSUR4603 IFUT<2546THENS40 
IFK$<>"Y" THENSOO 
GOSUB2!PRINT*1"°+CHR$(94) 3 }GOSUB90?FOKE2570:GOTOSOS 
T=DTS IFK$="Y" THENGOSUB2‘SFRINT*21°% 
IFK$<>"Y"THENPRINT* * 

PRINT * (FINE) NEW VALUE = "5 

W=255}GOSUBR603 IFINT<2546THENS90 

IFK$<2>"Y" THENS42 

GOSUB2! PRINT" 2"+CHR$( 94) 3 $GOSUB903 FOKE25%0:GOTOSSO 
RE=11!GOSUB203RE=12: 0T=T!GOSUR20: IFK$<>"Y" THENRETURN 
GOSUB2:PRINT"-5"9R(12)5" ";GOSUB2:FRINT". 5 "sR(C11)5" 
PRINT" *$PRINT* JACK BUILT FROGRAMS* 

PRINT" AY-3-8910/8912 DEMONSTRATOR" SF RINT" *$ RETURN 


"SS IFKS$<>°Y"THENFRINT** 


*}RETURN 


1000 PRINT"TONE (Y OR N) “% 
1010 GOSUB7! IFCH=89THENF RINT" YES*+A=1!GOTO1030 
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1015 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
2000 
2010 
2020 
2025 
2030 
2040 


2050 
3000 
3001 
3002 
3005 
3020 
3025 
3040 
3042 
3045 
3050 
3060 
3070 
3090 
3094 


IFCH=78THENFRINT "NO" 3A=0$GOTO1030 

GOTOLO10 

IFCL=1THENTL=1% TFA=1THENT1I=0 
IFCL=2THENT2=23 IFA=1THENT2=0 
IFCL=3THENT3=43 IFA=1THENT3=0 

GOSUB70: IFK$<>"Y" THENRETURN 

GOSUB2SPRINT"’ *+CHR$(434+(10#CL) 5 
IFA=1THENFRINT*YES* {RETURN 

PRINT"NO "RETURN 

IFKS<>"Y" THENFRINT** 

PRINT" AMPLITUDE ~ NEW VALUE = "3 
W=16?GOSUB60; IFDT<17THEN2040 
IFK$<> "Y" THEN2000 
GOSUB2:3PRINT*2J* + }GOSUB90;FOKE2570;G0T02020 
RE=7+CL!GOSUB203 IFK$="Y" THENGOSUB23 PRINT" (*+CHR$(434+(10XCL.) )FDTG" 


RETURN 
IFK$<>"Y"THENPRINT** 
PRINT’ FREQUENCY (COARSE) "#SIFK$<>"Y"THENFRINT** 


PRINT* NEW VALUE = "#3 POKE2570 

W=15:GOSUB60; [FDT<16THEN3S040 

IFK "Y" THEN3S000 

GOSUB2{FRINT*2R° +s $GOSUR90{FOKE2570;G0T03005 
T=DTIIFKS="Y¥"THENGOSUB2tFRINT*3"+CHRS(61)5 

IFK$<>"Y"THENPRINT®* 

PRINT’ (FINE) NEW VALUE = "s 

W=255}GOSUBR60:U=DT} TFUX256THENS090 

IFK "Y"* THEN3042 

GOSUB2:FRINT'SR'$ {GOSUB90!FOKE25%0!GOTO3050 
RE=(CL-1)*2!GOSUB20!RE=(CL-1)*2+12DT=T!GOSUB203 IFK$<>"Y* THENRETURN 
GOSUB2IPRINT*#"+CHRS$(434+(10KCL))3TF" "{GOSUB2{FRINT*$*+CHR$ (434¢1 


OXCL))5Us 


3095 


6050 
6060 
6070 
6080 


PRINT" "RETURN 

FRINT*NOISE (Y OR ND "3 

GOSUB7! IFCH=89THENFRINT*YES* $A=1$G60T04030 
IFCH=78THENFRINT "NO" $A=0260T04030 
GOTG4010 
IFCL=1THENN1=83 IFA=1 THENNI=0 
IFCL=2THENN2=163 IFA=1THENN2=0 
IFCL#3THENN3=323 [FA=1 THENNS=0 
GOSUB703 IFK$<>" Y * THENRETURN 
GOSUB2SFRINT* &*+CHR$(43+(10XKCL))5 
IFA=1THENF RINT" YES* {RETURN 
PRINT"NO "iRETURN 


PRINT * SPRINT’ "SPRINT" CH, 1 CH. 2 CH. 3* 
PRINT**3PRINT"FREQ (COARSE) RCL) "sR(3)39" "sRCS) 
PRINT" (FINE) "$RCODG" "sRC2)5" "#RC4) 

PRINT" “PRINT "NOISE =F 


A=R(7) ANISS IFA=8THENFRINT" NO": GOTO6034 
FRINT* YESS 


PRINT* "3 tA=R(7)ANDA63 IFA=146THENFRINT® NO" $GOTO6036 
PRINT*YES*$ 
PRINT* "3 2A=R¢7) AND323 IFA=32THENFRINT*® NO": GOTO6040 
PRINT" YES" 


FRINT* TONE "$2A=R(7) ANDLSIFA=1THENFPRINT" NO" :GOTO6042 


FRINT* YES"? 


PRINT" "$3A=R(7) AND2{1IFA=2THENFRINT® NO"+ $GOTO6044 
PRINT"YES"S 
FRINT* "$2A=R(7) AND4? IFA=4THENFRINT* NO" ?GOTOQ6050 
PRINT" YES* 


PRINT" AMPLITUDE "sSR(B)5" "FRCP DF *"sRCLO)SPRINT"" 
FRINT"4 NOISE FPERTOLR "sRC6) 
PRINT"S ENVELOPE SHAFE/CYCLE "sRC13) 


PRINT'6 ENVELOPE FERION (COARSE) “sR(12) 
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6090 PRINT" (FINE) "sR(11) 

6100 PRINT" *$FORB=1TO23FORA=1TO4:FRINT* R°+CHR$(47+( (B-1)*4)+A)$ 

6110 PRINTR(A-1+¢(B-1)*4))#$NEXTA?PRINT" " $NEXTB 

6120 FORA=1TO22FRINT" R'+CHR$(S5+A) #RC7+A) # 3NEXT 

6130 FORA=1TO22PRINT" Ri*+CHR$(47+A) §RCOtA) § SNEXTIPRINT®* 

6140 FORA=1TO4¢PRINT* Ri*+CHR$(49+A) FRC LItA) § SNEXTIFRINT"* 

6199 PRINT" "RETURN 

7000 GOSUBR4:FPRINTCHR$(E)+"*H"+CHR$(E)4+"J" 5 $FORA=1T0103NEXT 

7010 FORA=1T0783GOSUB23FRINT*O*+CHR$(A+31)+CHRS(S) {NEXT 

7020 GOSUB3*S=1243FORA=1T016% GOSUB2! PRINTCHR$(At31)+"Q"+CHR$(S) NEXT 
7030 GOSUBS $ GOSUB6$ FORA=1T016! GOSUB23 FRINTCHR$(A+31)+"TR*#A—-12NEXT 

7040 GOSUB23PRINT“ 4CH. 1*°?GOSUB2:PRINT* >CH, 2"{GOSUB2:PRINT" HCH. 3* 
one FREQ (COARSE) *!GOSUB2!FRINT*$Z(FINE) "{GOSUB23PRINT* 
7060 GOSUB23PRINT"’ TONE*{GOSUB2:PRINT"( AMPLITUDE" {GOSUB2:FRINT'+ 4 NO 
ISE PERIOD" 

7080 GOSUB2+PRINT"» 5S ENVELOPE SHAFE/CYCLE* $GOSUB2 

7090 PRINT*- 6 ENVELOPE PERIOD (COARSE) *!GOSUR2{FP RINT". 3(F INE) "RETURN 


MISCELLANIA 

*KX ANDREE HOOLANDIITS (ON4HU)» Leusenstraat 3Ar 9560 Herzeles Kelsium 
(see the article om rage 724)» sent us 23 masnificent rackase of 
material» including 28 cory of CQ QSOs June 1979y the Bulletin of the 
Belgian Radio Amateurs Union. This bilingual publication included both 
Flemish and French versions of his BASIC Frogram "QTH-locator". He also 
sent an English versions but our command of written (mot spoken!) French 
let us read the orisinal articleys with much Fleasure. Imasdine your SYM 
giving you Fromets and error messages im Frenchy or whatever language 
vou Flease! He included mars and charts for the European arear which 
suprorted the Program beautifully, We susdest interested hams contact 
him for further info. 


*KK JACK BROWN has enhanced his BASIC enhancements. He has taken nearly 
all of the goodies from every other Microsoft BASIC and made them 
available to SYM BASIC. These include 2 real time clocks LISTins with 
resination (including rrogram NAME and rage mumber on each sheet)», 
APPEND, VERIFY (for cassette dump reliability assurance)» CHAIN: EXEC 
(to allow your Frocedure to accert commands from within itselfy rather 
than having to wait for keyboard inputs)», etc. Hex arithmetic using the 
‘$’ rather than the beastly ‘’&"XXXX"’ structure is fully surrorted. 


Herey extracted from the manualy is a list of the new commands? 


$ Prefix for hex mumbers 

(@HH Returns current clock hours 

@MM Returns current clock minutes 

@ss Returns current clock seconds 

sAP PEND id Arrend new rrogram to current Program 


sAUTO Indestersin2 Enable suto line number rromrting 
»CAChorzrvertrchar) Absolute cursor addressing 
»CALL addryrPlyr2r. ¢ « Machine lansuase call 
+CRChorzyvertychar) Relative cursor addressing 
*CHAIN idylnirsln2 Chain command 

NEL lni-1n2 Range delete command 

UR xy Cassette motor control command 
sEDIT Ind Edit @ rrogram line 

+EXEC string Execute command 

»GET variable Get one key without echo 

-GOTO expression Computed GOTO command 


»IN=value Set input cassette 
+LIST 1Ini-1n2 List using rage rarameters 
+LOADP id Load rrogram from cassette 
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At this roint we’re both running out of sracer and setting tired of 
typing, so we’ll Just bunch the rest of the new commands togethers while 
reminding vou that "id" can be a stringy such as *1980 TAX RECORDS"! 


+LOADY aids .LOADR idyvaddrs +NUM IniysterrIin2sindr .OUT=vals PAGE 
Inlesersflas +PRINTOFF ¢ »PRINTONS +PRINTUSING maskvexers .SAVEF 
idvylndsin2s .GAVEV ids »SAVER idvaddrivaddr2s «STINE hryeminssecs » TRACE 
fisf2»f3s VERIFY id. 


While the addition of these commands makes SYM-BASIC non-transrortable 
to other machinesy the edded rower is worth it! 


*KK NICK VRTIS has given us the so-ahead to distribute his version of 
Tiny FILOT for the SYM. He will be rewriting the source code im RAE~1 
formats and we will be working closely with him to make the inrut 
routines more nearly “*fool-rroof" (see the BASIC article on Fase 7327 
for what this concert implies). SYM Tiny FILOT should be available by 
Issue No. 8. RAE source code will be available om cassette (or disk!) 
to rermit easy exransion or ‘customization. 


*KK RAE NOTES No, 3 should be in the mail by the end of March. Notes 
No, 3 will include a cory of the first few rades of Carl Moser’s 
original source codes written in ASSM/TED (the PET version of RAE» 
nearly identical). These will sive 311 of the rases zero and one wsedte. 
We will also list the entry roints for user available subroutines, In 
additiony 2a very fast LARELSORT rrograms by J. CYRe and some useful 
enhancements to SGWP-1» by Tom Gettysy will be source-listed. Please 
notey of coursey that the set of RAE Notes is available only to those 
who Purchased their RAE-1 or RAE-1/2 directly from us» or who Furchased 
the RAE Notes serarately., If you don’t receive your cory of RAE Notes 
No. 3 bu 15 Arril 1981+ rlease let us know, 


KKK DICK TURFIN sent ws 28 cory of the first issue of the ColorMate 
Newsletter he i5 Fublishins for users of the ColorMate Color Grarhics 
Board for the SYM. We were very much impressed and truly released to see 
this level of surrort for a froduct. Would that other vendors could do 
likewise! 


We were very slightly diserrointed when we first installed our board to 
find that the color resolution was not auite ur to that of the Arrle II 
by ~@ factor of two. After reading the specs on the Motorola 6847 VIG 
echir, we resigned ourselves to thisy reasoning that the highest 
resolution mode reavired 6K of dedicated RAM, and we only had 4K 
available. Dick mow tells us that in @ few months he will have an 
adartor board available to mount on the ColorMates which will fool it 
into thinking thet the available 4K is really 6Kry so that the full 
resolution of 256x192 btecomes eavailable,. He has several other new 
Products almost ready to announce. We will rerort on these as soon as 
we have had @ chance to evaluate them. 


*xkxX BOB MYERS asks us to remind you that the cost for the urgrade kit to 
convert the KTM-2 to a KTM-2/80 costs $65 for the two main ROM chirsy or 
$85 for all chirs and all necessary sockets, rostasge raid anywherer full 
instructions included. See Issue 1, back frase for his address, 


*KK WELL» THAT is a11 we have space for! We already heve some vers 
exciting material for the next issuer but no room to tell you ahout it 
here. Thanks to all whose material we could not set into this issue? we 
willy howeverry as is our customs make individual copies available to 
rpeorle who ask for informaion on those torics which your articles cover. 
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